সংখ্যা সুরক্ষা


22

পর্যায়ক্রমিক পূর্ণসংখ্যার পর্যায়ক্রমিক ক্রমটিতে এমন বৈশিষ্ট্য রয়েছে কিনা তা নির্ধারণের জন্য একটি প্রোগ্রাম লিখুন, ক্রমটি সংখ্যার প্রতিটি পূর্ণসংখ্যার জন্য n, nপর পর দু'বারের মধ্যে অন্যান্য পূর্ণসংখ্যার চেয়ে বেশি কখনও হয় না n

উদাহরণস্বরূপ, 2, 3, 5, 2, 3, 6, 2, 3, 5, 2, 3, 6, ...পতনকে ঘটনার প্রতিটি যুগল: এই সম্পত্তি আছে 2যেমন তাদের মধ্যে সর্বাধিক দুটি পূর্ণসংখ্যার (আছে 2, 3, 5, 2এবং 2, 3, 6, 2; পতনকে ঘটনার প্রতিটি যুগল 3আছে তাদের মধ্যে সবচেয়ে তিনটি পূর্ণসংখ্যার এ আর একই 5এবং 6

যাইহোক, 2, 3, 5, 2, 3, 4, 2, 3, 5, 2, 3, 4, ...দুটি পর পর ঘটনার: এই সম্পত্তি আছে না 4, যথা 4, 2, 3, 5, 2, 3, 4, তাদের মধ্যে তুলনায় আরো চার পূর্ণসংখ্যার আছে।

ইনপুট : ইতিবাচক পূর্ণসংখ্যার পর্যায়ক্রমিক ক্রমের যুক্তিসঙ্গত উপস্থাপনা। উদাহরণস্বরূপ, সীমাবদ্ধ তালিকা যেমন উপরের {2, 3, 5, 2, 3, 6}প্রথম অসীম অনুক্রমকে উপস্থাপন করতে পারে 2, 3, 5, 2, 3, 6, 2, 3, 5, 2, 3, 6, ...। (এই বিষয়টির জন্য, সমস্যা সীমিত তালিকার জন্য বলা যেতে পারে যা অসীম পর্যায়ক্রমিক তালিকার পরিবর্তে চারপাশে মোড়ানো থাকে w)

আউটপুট : একটি সত্য / মিথ্যা মান।

সত্যবাদী উদাহরণ:

{1}
{8, 9}
{2, 3, 4}
{5, 5, 3, 3, 6}
{2, 3, 5, 2, 3, 6}
{6, 7, 3, 5, 3, 7}
{9, 4, 6, 7, 4, 5}
{1, 1, 1, 1, 1, 100, 1}
{1, 9, 1, 8, 1, 7, 1, 11}

মিথ্যা উদাহরণ:

{1, 2, 3}
{2, 3, 9, 5}
{3, 5, 4, 4, 6}
{2, 3, 5, 2, 3, 4}
{3, 5, 7, 5, 9, 3, 7}
{5, 6, 7, 8, 9, 10, 11}
{1, 9, 1, 8, 1, 6, 1, 11}

এটি , তাই সংক্ষিপ্ততম কোডটি জয়ী। সমস্ত ভাষায় উত্তর উত্সাহিত করা হয়।


ইনপুট তালিকায় সর্বদা কমপক্ষে একটি উপাদান থাকে?
নিমি

2
@ নিমিম অন্যথায় এটি অসীম পর্যায়ক্রমিক ক্রমের প্রতিনিধিত্ব করবে না।
মার্টিন ইন্ডার

1
আপনি যদি থ্রু-মর্স ক্রমটি গ্রহণ করেন এবং প্রতিটি পদে 1 টিরও বেশি সংখ্যক স্থির ইতিবাচক পূর্ণসংখ্যা যোগ করেন, তবে এই সম্পত্তিটির সাথে আপনার একটি অ্যাপিওরিওডিক অসীম ক্রম থাকবে।
সুপারজেডি ২৪

উত্তর:


7

Haskell,, 60 57 56 55 বাইট

f(a:b)=b==[]||length(fst$span(/=a)b)<=a&&f b
g x=f$x++x

ধরে নিই যে ইনপুট তালিকায় কমপক্ষে একটি উপাদান রয়েছে।

ব্যবহারের উদাহরণ: g [1]-> Trueএটি অনলাইন চেষ্টা করুন!

যাক aতালিকা এবং প্রধান হতে bলেজ। ফলাফলটি Trueযদি bখালি হয় বা এর শুরুতে উপাদানগুলির সংখ্যা bসমান aহয় না এর চেয়ে বেশি হয় না aএবং এর পুনরাবৃত্তি কলটি f bহয় Trueঅন্যথায় False। ইনপুট তালিকার দ্বিগুণ দিয়ে শুরু করুন।

সম্পাদনা করুন: @ লিও 3 বাইট সংরক্ষণ করেছে ধন্যবাদ!

সম্পাদনা 2: @ লাইকনি 1 বাইট সংরক্ষণ করেছেন। ধন্যবাদ!


স্প্যানের পরিবর্তে টিকহাইল ব্যবহার করে আপনি প্যাটার্ন-ম্যাচিং এড়াতে পারবেন এবং তিনটি বাইট নিস সলিউশনটি সেভ করতে পারবেন ! :)
লিও

@ লিও: চমৎকার ধরা! সাধারণত ব্যবহার spanকরা ব্যবহারের চেয়ে কম হয় takeWhile, তাই আমি এটিকে মোটেই দেখিনি।
নিমি

takeWhileপ্রায় সবসময় সংক্ষিপ্ত করা যেতে পারে fst$spanবা fst.span, যা অন্য বাইট সংরক্ষণ করে।
লাইকনি

@ লাইকনি: হ্যাঁ অবশ্যই! ধন্যবাদ!
নিমি


6

পাইথন , 57 56 বাইট

-1 ডেনিস করার বাইট ধন্যবাদ (প্রতিস্থাপন i+1:i+v+2সঙ্গে i:i-~vএকটি সঙ্গে iথেকে 1 টি অফসেট enumerate)

lambda a:all(v in(a+a)[i:i-~v]for i,v in enumerate(a,1))

এটি অনলাইন চেষ্টা করুন!

নামবিহীন ফাংশন একটি তালিকা গ্রহণ, aএবং এই শর্তে যে প্রতিটি মান, টেস্টিং v, মনে হচ্ছে, inএকটি সংযুক্তকরণের তার ডান প্রাসঙ্গিক ফালি aনিজেই সঙ্গে, (a+a)[i:i-~v]যেখানে 1 ভিত্তিক সূচক vমধ্যে a, i, দ্বারা প্রদান করা হয় enumerate(a,1)


1
এটি একটি 8-বাইট জেলি উত্তর অনুপ্রাণিত করে। :) আপনি এই মত একটি বাইট সংরক্ষণ করতে পারেন ।
ডেনিস

6

জাভাস্ক্রিপ্ট (ES6), 67 65 55 54 51 49 বাইট

@ ইটিআর প্রডাকশনগুলিতে 3 বি ধন্যবাদ এবং 2 অ্যারনল্ডকে 2 বি ধন্যবাদ সংরক্ষণ করা হয়েছে

a=>!a.some((b,c)=>a.concat(a).indexOf(b,++c)>b+c)

ব্যাখ্যা

এটি এমন একটি ফাংশন সংজ্ঞায়িত করে যা কোনও অ্যারে aইনপুট হিসাবে গ্রহণ করে । তারপরে, .someপদ্ধতিটি প্রতিটি অ্যারের জন্য আরেকটি ফাংশন সম্পাদন করে সেই অ্যারের উপরে পুনরাবৃত্তি করে।

এই অভ্যন্তরীণ ফাংশনটি দুটি আর্গুমেন্ট গ্রহণ করে bএবং cবর্তমান মান এবং এটির সূচক। ফাংশন সূচক থেকে শুরু করে বর্তমান মানের সূচকটি সন্ধান করে c + 1। তারপরে এটি যাচাই করে যে এই সূচকটি বর্তমান মানের প্লাস বর্তমান সূচকের চেয়ে বেশি কিনা (একই মানের দুটি সংঘর্ষের পার্থক্য এর চেয়ে বেশি b)। মনে রাখবেন যে এটি আমরা যা চাই তার ঠিক বিপরীতে ফিরে আসে।

যদি এই রিটার্ন মানগুলির একটি হয় trueতবে .someফাংশনটিও ফিরে আসে true। যদি চেকগুলির কোনওটি না ফেরায় trueতবে .someফাংশনটি ফিরে আসে false। আবার আমরা যে মানটি ফিরিয়ে দিতে চাই তার বিপরীতে, সুতরাং এই ফলাফলটিকে অবহেলা করা হয় এবং তারপরে ফিরে আসে।

এটা পরীক্ষা করো

সমস্ত পরীক্ষার কেস এখানে চেষ্টা করে দেখুন:

let f=
a=>!a.some((b,c)=>a.concat(a).indexOf(b,++c)>b+c)

let truthy = [[1], [8, 9], [2, 3, 4], [5, 5, 3, 3, 6], [2, 3, 5, 2, 3, 6], [6, 7, 3, 5, 3, 7], [9, 4, 6, 7, 4, 5], [1, 1, 1, 1, 1, 100, 1], [1, 9, 1, 8, 1, 7, 1, 11]];
let falsy  = [[1, 2, 3], [2, 3, 9, 5], [3, 5, 4, 4, 6], [2, 3, 5, 2, 3, 4], [3, 5, 7, 5, 9, 3, 7], [5, 6, 7, 8, 9, 10, 11], [1, 9, 1, 8, 1, 6, 1, 11]];

console.log("Truthy test cases:");
for (let test of truthy) {
    console.log(`${test}: ${f(test)}`);
}

console.log("Falsy test cases:");
for (let test of falsy) {
    console.log(`${test}: ${f(test)}`);
}


খুব সুন্দর, আমি ঠিক এটিই নিয়ে এসেছি :-) আপনি শুরুতে একবার দ্বিগুণ অ্যারে তৈরি করতে পারেন এবং .shift()স্লাইসে সংরক্ষণ করতে ব্যবহার করতে পারেন :a=>!a.some(b=>z.indexOf(z.shift())>b,z=a.concat(a))
ETH প্রোডাকশনগুলি

হেই, দুর্দান্ত গল্ফাররা একইভাবে চিন্তা করে ;-)। আমি শিফটটিও ব্যবহার করার কথা ভেবেছিলাম, তবে আমি এটি ব্যবহার করিনি, যেহেতু এটি দীর্ঘ হয়েছে। একবার ডাবল অ্যারে তৈরি করা এবং প্রতিবার স্থানান্তর করা সত্যিই চালাক। ধন্যবাদ!
লুক

চান a=>!a.some((n,i)=>a.concat(a).indexOf(n,++i)>n+i)কাজ করে?
আর্নল্ড

হ্যাঁ এটা করে. ধন্যবাদ!
লুক

4

জেলি , 11 বাইট

ṣZL
;çЀ<‘P

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

;çЀ<‘P  Main link. Argument: A (array)

;        Concatenate A with itself.
 çD€     For each n in A, call the helper with left arg. A + A and right arg. n.
     ‘   Increment all integers in A.
    <    Perform element-wise comparison of the results to both sides.
      P  Take the product of the resulting Booleans.


ṣZL      Helper link. Left argument: A. Right argument: n

ṣ        Split A at all occurrences of n.
 Z       Zip to transpose rows and columns.
  L      Length; yield the number of rows, which is equal to the number of columns
         of the input to Z.

3

জেলি , 8 বাইট

ṙJḣ"‘Œpċ

@ জোনাথন অ্যালান এর পাইথন উত্তর দ্বারা অন্তর্নিহিত ।

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ṙJḣ"‘Œpċ  Main link. Argument: A (array)

 J        Yield the indicies of A, i.e., [1, ..., len(A)].
ṙ         Rotate; yield A, rotated 1, ..., and len(A) units rotated to the left.
    ‘     Increment; add 1 to all elements of A.
  ḣ"      Head zipwith; truncate the n-th rotation to length A[n]+1.
     Œp   Take the Cartesian product of all resulting truncated rotations.
       ċ  Count the number of times A appears in the result.

2

এসডাব্লুআই-প্রোলগ, 83 বাইট

a(L,[H|R]):-nth0(X,R,H),H>=X,a(L,R);length(R,N),nth0(X,L,H),H>=N+X,a(L,R).
a(_,[]).


তালিকাটি দু'বার প্রবেশ করা উচিত:

a([1,2,3],[1,2,3]).

যদি এটি গ্রহণযোগ্য হিসাবে বিবেচিত না হয় তবে আপনি প্রাকটিক যোগ করতে পারেন

a(L):-a(L,L).

যা অতিরিক্ত 14 বাইট যুক্ত করে।

এটি অনলাইনে চেষ্টা করুন


নোট: আপনি আপনার প্রশ্নগুলি ';' দিয়ে আলাদা করে একবারে বিভিন্ন মিথ্যা মামলার জন্য পরীক্ষা করতে পারেন; (বা) এবং ',' (এবং) এর সাথে পৃথক করে বিভিন্ন সত্যিকারের ক্ষেত্রে পরীক্ষা করুন

যেমন, ওপি উদাহরণগুলি ব্যবহার করে:

a([1],[1]),
a([8, 9],[8, 9]),
a([2, 3, 4],[2, 3, 4]),
a([5, 5, 3, 3, 6],[5, 5, 3, 3, 6]),
a([2, 3, 5, 2, 3, 6],[2, 3, 5, 2, 3, 6]),
a([6, 7, 3, 5, 3, 7],[6, 7, 3, 5, 3, 7]),
a([9, 4, 6, 7, 4, 5],[9, 4, 6, 7, 4, 5]),
a([1, 1, 1, 1, 1, 100, 1],[1, 1, 1, 1, 1, 100, 1]),
a([1, 9, 1, 8, 1, 7, 1, 11],[1, 9, 1, 8, 1, 7, 1, 11]).

এবং

a([1, 2, 3],[1, 2, 3]);
a([2, 3, 9, 5],[2, 3, 9, 5]);
a([3, 5, 4, 4, 6],[3, 5, 4, 4, 6]);
a([2, 3, 5, 2, 3, 4],[2, 3, 5, 2, 3, 4]);
a([3, 5, 7, 5, 9, 3, 7],[3, 5, 7, 5, 9, 3, 7]);
a([5, 6, 7, 8, 9, 10, 11],[5, 6, 7, 8, 9, 10, 11]);
a([1, 9, 1, 8, 1, 6, 1, 11],[1, 9, 1, 8, 1, 6, 1, 11]).

2

পিএইচপি, 52 বাইট

for(;$n=$argv[++$i];$$n=$i)!$$n|$i-$$n<$n+2?:die(1);

কমান্ড লাইন আর্গুমেন্ট থেকে ক্রম নেয়; 1সত্যবাদী, মিথ্যা জন্য কোড সহ প্রস্থান করে 0
সাথে চালাও -nr

  • $nযুক্তি দিয়ে লুপ :
    • যদি পূর্বের ঘটনাটি না ঘটে বা এটি সাম্প্রতিক পর্যায়ে ছিল
      তবে কিছুই করবেন না, অন্যথায় কোড সহ প্রস্থান করুন1
    • $$n( পরিবর্তনশীল ভেরিয়েবল ) এর পূর্ববর্তী উপস্থিতি মনে রাখবেন
  • কোড সহ প্রস্থান করুন 0(অন্তর্ভুক্ত)

ক্রেজি আপনার পরিবর্তনশীল নামগুলি অবৈধ তবে আমি এটি পছন্দ করি।
জার্গ হালসারম্যান

2

রেটিনা , 50 বাইট

$
,$`
M!&`\b(1+),.*?\b\1\b
+%`(^1*)1,1+
$1
M`1,
^0

কমা-পৃথক অবিচ্ছিন্ন সংখ্যাগুলির তালিকা হিসাবে ইনপুট।

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

$
,$`

ইনপুটটিকে সদৃশ করুন যাতে আমরা শেষের দিকে মোড়ানো পদক্ষেপগুলি পরীক্ষা করতে পারি।

M!&`\b(1+),.*?\b\1\b

মেলান এবং দুই অভিন্ন মানের মধ্যে প্রতিটি (সবচেয়ে কম) ধারা আসতে যেমন 11,111,1,11

+%`(^1*)1,1+
$1

প্রথম সংখ্যা থেকে বারবার একটি সংখ্যার একসাথে তার পরে পুরো সংখ্যাটি সরিয়ে ফেলুন। যদি ব্যবধানটি যথেষ্ট ছোট হয় তবে এটি প্রথম সংখ্যাটি পুরোপুরি সরিয়ে ফেলবে। অন্যথায়, কমপক্ষে একটি অঙ্ক থাকবে।

M`1,

1,সমস্ত লাইনে কতবার প্রদর্শিত হয় তা গণনা করুন । যদি এটি কোথাও উপস্থিত হয় তবে একটি ধাপ খুব প্রশস্ত ছিল।

^0

একটি সংখ্যা দিয়ে শুরু করার চেষ্টা করুন 0(অর্থাত্ কেবলমাত্র 0এটি) match এটি কার্যকরভাবে আউটপুটটির যৌক্তিক অবহেলা।


2

জাভাস্ক্রিপ্ট (ES6), 47 বাইট

a=>![...a,...a].some((n,i)=>a[-n]-(a[-n]=i)<~n)

কিভাবে এটা কাজ করে

আমরা aপ্রতিটি পূর্ণসংখ্যার শেষ মুখোমুখি ঘটনার অবস্থান সঞ্চয় করতে ইনপুট অ্যারেটি পুনরায় ব্যবহার করি a। আমরা -nএই অবস্থানটি সংরক্ষণ করার জন্য কীটি ব্যবহার করি যাতে এটির মূল সূচকগুলিতে হস্তক্ষেপ না হয় a

যখন a[-n]উপস্থিত থাকে, আসল পরীক্ষাটি ঘটে। যখন a[-n]অস্তিত্ব থাকে না, তখন ভাবটি a[-n] - (a[-n] = i)সমান হয় undefined - i == NaNএবং এর সাথে তুলনা ~nসবসময় মিথ্যা হয়, যা প্রত্যাশিত ফলাফল।

পরীক্ষার মামলা


2

রেটিনা ,  41 39 বাইট

2 বাইট মার্টিন ইন্ডারকে ধন্যবাদ জানায়, যা এসওতে তার দুর্দান্ত গাইডের মাধ্যমে দলগুলিকে ভারসাম্যপূর্ণ করার জন্য আমাকে পরিচয় করিয়ে দেয়

$
,$`,
((1)+,)(?=(?<-2>1+,)*(\1|$))

^$

ইনপুটটি অবিচ্ছিন্ন সংখ্যার কমা-বিভাজিত তালিকা। আউটপুট 0মিথ্যা এবং 1সত্যের জন্য।

এটি অনলাইন চেষ্টা করুন! (টেস্ট স্যুট যা স্বয়ংক্রিয়ভাবে দশমিক থেকে রূপান্তরিত হয়)

আমি সাম্প্রতিক গ্রুপগুলির ভারসাম্য সম্পর্কে শিখেছি, তাই আমি তাদের চেষ্টা করে দেখতে চাই। এগুলি ব্যবহার করার সহজতম সরঞ্জামগুলির মধ্যে নয়, তবে তারা শক্তিশালী কিনা তা নিশ্চিত।

ব্যাখ্যা

$
,$`,

অন্যান্য অনেক জমা দেওয়া হিসাবে, আমরা মোড়কের সাথে কাজ করার জন্য তালিকাটিকে নকল করি। আমরা শেষে কমাও যুক্ত করি, সুতরাং প্রতিটি সংখ্যা কমা দ্বারা অনুসরণ করা হয় (এটি পরে কিছুটা সহজ করে তোলে)

((1)+,)(?=(?<-2>1+,)*(\1|$))

এখানে জিনিসগুলি আকর্ষণীয় হয়ে উঠেছে's এটি একটি প্রতিস্থাপনের পর্যায়ে, আমরা প্রথম লাইনের সাথে মেলে সমস্ত কিছু দ্বিতীয় লাইনের সাথে প্রতিস্থাপন করি, এক্ষেত্রে আমরা অন্যান্য নম্বরগুলি nঅনুসরণ না করে সমস্ত সংখ্যা মুছে ফেলতে n+1চাইছি।

এটি করার জন্য, আমরা প্রথমে সংখ্যার সাথে মিলিয়ে প্রত্যেককে 1একটি গ্রুপে ক্যাপচার করি (এই ক্ষেত্রে গ্রুপ নং 2 ক্যাপচার করে)। তারপরে একটি ইতিবাচক দৃষ্টিভঙ্গি সহ, শূন্য-প্রস্থের দৃ .়তার জন্য আমরা বারবার ব্যালেন্সিং গ্রুপে মিলানোর চেষ্টা করি -2, যা গ্রুপ দ্বারা ক্যাপচারের সংখ্যার চেয়ে বেশি সফল হবে না, তার 2পরে একটি সংখ্যা কমা হবে। সংখ্যার এই ধারাবাহিকতার পরে, আমরা সন্তুষ্ট যদি আমরা আবার প্রথম সংখ্যাটি বা লাইনটির শেষে পৌঁছায়।

দ্রষ্টব্য: এই সংখ্যাটি কেবল কোনও সংখ্যার চূড়ান্ত অংশের সাথে মেলে, যদি এটি পুরো সংখ্যার সাথে কোনও মিল খুঁজে পায় না। এটি কোনও সমস্যা নয়, কারণ তখন সংখ্যার প্রথম অংশটি স্ট্রিংয়ে থাকবে এবং আমরা জানব যে প্রতিস্থাপনটি সম্পূর্ণ সফল হয়নি।

^$

পরিশেষে, ফলাফলটি সত্য হতে হবে যদি আমরা তালিকা থেকে সমস্ত সংখ্যা সম্পূর্ণ সরিয়ে ফেলেছি। আমরা খালি স্ট্রিংয়ের সাথে মেলে চেষ্টা করেছি এবং পাওয়া মিলগুলির সংখ্যাটি ফিরিয়ে দেব।


1
চমৎকার কাজ! :) এর দরকার নেই \b। এটি অপসারণ করায় বিপথগামী ম্যাচগুলির কারণ হবে তবে তারা পুরো সংখ্যাটি সরিয়ে ফেলতে ব্যর্থ হবে, সুতরাং আপনি কোনও খালি স্ট্রিং দিয়েই শেষ করবেন না।
মার্টিন ইন্ডার

@ মার্টিনএন্ডার আপনি অবশ্যই ঠিক আছেন, আপনাকে ধন্যবাদ :)
লিও

1

জেলি , 11 বাইট

ẋ2ĠṢI_2<"QȦ

এটি অনলাইন চেষ্টা করুন!

ẋ2ĠṢI_2<"QȦ  Main link. Argument: A (array)

ẋ2           Repeat A twice to account for wrap-around.
  Ġ          Group all indices of A + A by their respective values, sorting the
             index groups by the associated values.
   Ṣ         Sort the groups lexicographically, i.e., by first appearance in A.
    I        Increments; compute the forward differences of adjacent indices in
             each of the groups.
     _2      Subtract 2 from the differences.
         Q   Unique; yield A, deduplicated.
       <"    Compare all differences in the index group corresponding to the n-th
             unique value in A with the n-th unqiue value in A.
          Ȧ  All; yield 1 if and only if none of the comparisons returned 0.


1

রাদা , 50 বাইট

f a{seq 0,#a-1|[indexOf(a[_],a[_1+1:]..a)<=a[_1]]}

এটি অনলাইন চেষ্টা করুন!

অবশেষে! আমি এই চ্যালেঞ্জের জন্য অপেক্ষা করছিলাম ...

এটি এমন একটি ফাংশন যা সত্যবাদী বা মিথ্যা মান দেয়। এটি একটি যুক্তি লাগে, অ্যারে।

এটি সূচকগুলির একটি স্ট্রিমের উপরে পুনরাবৃত্তি করে এবং প্রতিটি সূচকের জন্য পরীক্ষা করে _1যে বর্তমান সূচকের এবং পরবর্তী সূচকের দূরত্ব এর a[_1]চেয়ে বেশি নয় a[_1]


ঠিক কীভাবে _1কাজ করে?
ক্রিটসি লিথোস

@ ক্রিটিক্সিলিথোস এটি পছন্দ _, তবে প্রথম টানা মানকে বোঝায়। আমি যদি একাধিক _গুলি ব্যবহার করতাম তবে প্রত্যেকে আলাদা আলাদা মান টেনে আনত। উদাহরণস্বরূপ, [1, 2, 3] | print(_, _, _)প্রিন্টগুলি 123, তবে [1,2,3] | print(_, _1, _1)প্রিন্টগুলি 111 222 333(পৃথক লাইনে)।
ফারগুসক

0

05 এ বি 1 ই , 13 বাইট

Dì©v®¦©yky›_P

এটি অনলাইন চেষ্টা করুন! বা টেস্ট স্যুট হিসাবে

ব্যাখ্যা

Dì             # duplicate input and prepend the copy to the original
  ©            # store a copy in the register
   v           # for each element in the list
    ®          # push the list from register
     ¦©        # remove the first element and store a copy in the register
       yk      # get the index of the current element in the list
         y›_   # check if it's less than or equal to the current element
            P  # product of stack
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.