কোলাটজ কনজেকচার (OEIS A006577)

Question

এটি কোলাটজ কনজেকচার (OEIS A006577 ):

• পূর্ণসংখ্যা n > 1 দিয়ে শুরু করুন ।
• নিম্নলিখিত পদক্ষেপগুলি পুনরাবৃত্তি করুন:
  • যদি n সম হয়, এটি 2 দিয়ে ভাগ করুন।
  • যদি এন বিজোড় হয় তবে এটিকে 3 দিয়ে গুণ করুন এবং 1 যুক্ত করুন।

এটা তোলে প্রমাণিত হয় যে সব ধনাত্মক পূর্ণসংখ্যা জন্য পর্যন্ত 5 * 2 ⁶⁰ , বা সম্পর্কে 5764000000000000000 , এন অবশেষে হয়ে যাবে 1 ।

আপনার কাজটি হ'ল কতটি পুনরাবৃত্তি লাগে (অর্ধেক বা ট্রিপলিং-প্লাস-ওয়ান) 1 এ পৌঁছাতে ।

প্রাসঙ্গিক xkcd :)

নিয়মাবলী:

• সংক্ষিপ্ততম কোড জিতেছে।
• যদি <2 সংখ্যাটি ইনপুট হয়, বা একটি অ-পূর্ণসংখ্যা, বা একটি অ-সংখ্যা হয় তবে আউটপুট কিছু যায় আসে না।

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

2  -> 1
16 -> 4
5  -> 5
7  -> 16

Answer 1

গল্ফস্ক্রিপ্ট, 24 23 21 20 18 চার্স

~{(}{3*).2%6\?/}/,

স্টিডিনে ইনপুট গ্রহণ করে। অনলাইন পরীক্ষা

Comments

1+হিসাবে বিশেষ ক্ষেত্রে )।

— পিটার টেলর

@ পিটারটেলর অবশ্যই, এটি সম্পর্কে ভুলে গেছেন;)

— অস্থিরতা

চমৎকার কাজ! <! - প্যাডিং ->

— পিটার টেলর

@ পিটার: << - -> মন্তব্যগুলিতে কাজ করে না। ব্যবহার করুন এই পরিবর্তে।

— ইলমারি করোনেন

অথবা এটা.

— টিমউই

Answer 2

সি - 50 47 টি অক্ষর

দুর্বল ছোট সি দুর্ভাগ্যক্রমে মৌলিক I / O এর জন্য একটি ভয়াবহ পরিমাণ কোডের প্রয়োজন, তাই সমস্ত কিছু সংক্ষেপে ইউআইকে সামান্য শৃঙ্খলাবদ্ধ করে তুলেছে।

b;main(a){return~-a?b++,main(a&1?3*a+1:a/2):b;}

উদাহরণস্বরূপ এটি সংকলন করুন gcc -o 1 collatz.c। স্থান-বিভাজনিত অঙ্কগুলির সাথে ইনপুট অচল অবস্থায় রয়েছে এবং আপনি প্রস্থান কোডটিতে উত্তরটি খুঁজে পাবেন। সংখ্যা 17 সহ একটি উদাহরণ:

$> ./1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
$> echo $?
12
$>

Comments

return~-a?সংরক্ষণ 1. এছাড়াও চলন্ত b++করার ?ক্ষেত্রে সংরক্ষণ করা উচিত b--।

— ugoren

হেই আপনি বিধিগুলি এত বেশি নমন করছেন : সৃজনশীলতার জন্য পি +1 এবং কোনও ভাষা সাধারণত গল্ফের জন্য ব্যবহৃত হয় না

— ডোরকনব

আপনাকে উগ্রোরেন ধন্যবাদ! এটি লেখার সময় অবশ্যই মাতাল হয়েছি। :)

— Fors

Answer 3

পার্ল 34 (+1) অক্ষর

$\++,$_*=$_&1?3+1/$_:.5while$_>1}{

$\যথারীতি চূড়ান্ত আউটপুট দেওয়ার জন্য গালি দেওয়া । -pকমান্ড লাইন বিকল্পটি দিয়ে চালান , ইনপুট নেওয়া হয় stdin।

এলিয়াস ভ্যান ওটেজেমের কারণে একটি বাইট সংরক্ষণ করা হয়েছে । বিশেষতঃ পর্যবেক্ষণ যে নিম্নলিখিত দুটি সমতুল্য:

$_=$_*3+1
$_*=3+1/$_

যদিও একটি বাইট দীর্ঘায়িত হয়, এটি $_/2কেবলমাত্র ছোট করে দুটি বাইট সংরক্ষণ করে .5।

নমুনা ব্যবহার:

$ echo 176 | perl -p collatz.pl
18

---

পিএইচপি 54 বাইট

<?for(;1<$n=&$argv[1];$c++)$n=$n&1?$n*3+1:$n/2;echo$c;

কাঠের চামচ পুরস্কারের জন্য জাভাস্ক্রিপ্টের আর্চনেমেসিস এই চ্যালেঞ্জটিতে কিছুটা কম পড়েছে বলে মনে হচ্ছে। যদিও এই সমস্যাটি নিয়ে সৃজনশীলতার পুরো জায়গা নেই। কমান্ড লাইন আর্গুমেন্ট হিসাবে ইনপুট নেওয়া হয়।

নমুনা ব্যবহার:

$ php collatz.php 176
18

Comments

তুলনাহীন বন্ধনীগুলি কী করছে তা নির্ধারণ করার জন্য আমাকে কিছুটা সময়

— মেরিনাস

পুনরায় $_তিন মধ্যে অযথা মনে হচ্ছে, তাই ব্যবহার করার মাধ্যমে অন্যদের চরিত্র বন্ধ শেভ করতে *=ভালো: $\++,$_*=$_&1?3+1/$_:.5while$_>1}{। দ্বারা গুণিত 1/$_করার একই প্রভাব রয়েছে +1, তাই $_*=3+1/$_ঠিক কাজ করে

— ইলিয়াস ভ্যান ওটেজেম

@ ইলিয়াসভ্যানঅটেজেম $_*=3+1/$_উজ্জ্বল, ধন্যবাদ!

— primo

Answer 4

গণিত (35)

If[#>1,#0@If[OddQ@#,3#+1,#/2]+1,0]&

ব্যবহার:

If[#>1,#0[If[OddQ@#,3#+1,#/2]]+1,0]&@16
>> 4

Comments

এটি কোনও বৈধ ফাংশন নয়, 10.3 শেষে একটি দুর্বৃত্ত সম্পর্কে অভিযোগ করে

— ক্যালকুলেটরফ্লাইন

@ যুক্তি কল করছে, কেন এটা সেখানে ছিল আমি জানি না, শুধু একটি দ্রুত সম্পাদন করা

— মাইল

সতর্ক থাকতে হবে :)

— ক্যালকুলেটরফলাইন

Answer 5

আমি সাধারণত যেমন করি, উত্তরগুলি আমার নিজের দিয়েই শুরু করব।

জাভাস্ক্রিপ্ট, 46 44 টি অক্ষর (কনসোল চালানো)

for(n=prompt(),c=1;n>1;n=n%2?n*3+1:n/2,++c)c

Comments

Said প্রম্পট () এর বিন্দুটি কী আপনি যদি বলেছিলেন যে এটি আউটপুটটি অ-পূর্ণসংখ্যা হয় তাতে কিছু আসে যায় না? আপনি of থেকে মুক্তি পেয়ে দুটি অক্ষর সংরক্ষণ করতে পারেন ~~

— পুনরাবৃত্তি করুন

@ রিসরথ আহ, জেএস এর অটো কাস্টিং সম্পর্কে ভুলে গেছেন: পি ধন্যবাদ

— ডুরকনব

Answer 6

জাভা, 165, 156, 154,134,131,129,128 , 126 ( ভার্চুজের ভাষাগুলিতেও কিছুটা ভালবাসার দরকার আছে)

class a{public static void main(String[]a){for(int x=Short.valueOf(a[0]),y=0;x>1;x=x%2<1?x/2:x*3+1,System.out.println(++y));}}

সব কিছু ভিতরে করা হয়

for(int x=Short.valueOf(a[0]),y=0;x>1;x=x%2<1?x/2:x*3+1,System.out.println(++y))

এটা সুন্দর মানুষ। পেটার টেলরকে ধন্যবাদ !!!, এবং লুপের জন্য ইউগ্রেনের কাছ থেকে ব্যবহার করার ধারণাটি চুরি হয়ে গেছে

আমি সংক্ষিপ্ত জন্য পূর্ণসংখ্যা প্রতিস্থাপন।

Comments

আপনি দৈর্ঘ্যটি খুব সহজেই সংরক্ষণ করতে পারেন i(,++y)। <পরিবর্তে ব্যবহার করে আপনি আরও দুটি সঞ্চয় করতে পারেন ==।

— পিটার টেলর

@ পিটারটেলর আপনি ঠিক বলেছেন, আমার তুলনা <এর সাথে সংক্ষিপ্ত হবে তবে আমি প্রাক

— বর্ধনের

আপনার দ্বিতীয় ত্রৈমাসিকের দুটি পক্ষই কাঠামোগতভাবে অভিন্ন, তাই আপনি পুনরাবৃত্তির কলটির প্রথম যুক্তিতে তৃতীয়টি চাপতে পারেন।

— পিটার টেলর

ওহ আমার

— BRশ্বর এই ব্রিলিয়ান্ট

আমি জানি এটি প্রায় 3.5 বছর হয়েছে, তবে আপনি এখনও এটি 5 বাইট দ্বারা গল্ফ করতে পারেন : class a{public static void main(String[]a){for(int x=new Short(a[0]),y=0;x>1;System.out.println(++y))x=x%2<1?x/2:x*3+1;}}পরিবর্তনগুলি করেছেন: 1) -4 বাইট দ্বারা প্রতিস্থাপন Short.valueOf(...)করা new Short(...)হয়েছে এবং 2) আমি এটিকে পরিত্রাণ পেতে -লুপের শরীরে রেখেছি -1 বাইটের জন্য কমা । x=x%2<1?x/2:x*3+1;for

— কেভিন ক্রুইজসেন

Answer 7

রেব্মু : 28

u[++jE1 AeEV?a[d2A][a1M3a]]j

এই সংক্ষিপ্ত এবং গাণিতিক সমস্যার ক্ষেত্রে, গল্ফস্ক্রিপ্ট সম্ভবত রেবমুর বিরুদ্ধে কিছু শতাংশ জিতবে (যদি এটি বলার প্রয়োজন না হয়, ইন্টারনেট থেকে ফাইলগুলি পড়ুন বা জেপিজি ফাইল তৈরি করুন)। তবুও আমি মনে করি যে বেশিরভাগ গল্ফস্ক্রিপ্টের যুক্তিটি মেনে চলা এত সহজ যে এত সহজেই এর কাছাকাছি নেই এবং এটি চালানো মোট নির্বাহযোগ্য স্ট্যাকটি আরও বড়।

যদিও রেবলের নিজস্ব নির্মাতা কার্ল স্যাসেনারথ আমাকে বলেছিলেন যে তিনি রেবমুকে "অপঠনযোগ্য" পেয়েছেন, তিনি ব্যস্ত রয়েছেন, এবং শূকর- লাতিনের মতো রূপান্তরকে বাস্তবে না কাটানোর মতো সময় নেই । এটি সত্যই নিছক রূপান্তরিত হয়েছে:

u [
    ++ j
    e1 a: e ev? a [
        d2 a
    ] [
        a1 m3 a
    ]
]
j

মনে রাখবেন যে, স্থান একটি পেতে প্রয়োজন ছিল উত্তর: একটি পরিবর্তে একটি । এটি একটি "সেট শব্দ"! এবং মূল্যায়নকারী অ্যাসাইনমেন্ট ট্রিগার করতে প্রতীক টাইপ বিজ্ঞপ্তি।

যদি এটি অবিশ্বাস্যভাবে লেখা হয় (এখনও বিশ্রীভাবে লেখা রেবোল) তবে আপনি পাবেন:

until [
    ++ j
    1 == a: either even? a [
        divide a 2
    ] [
        add 1 multiply 3 a
    ]
 ]
 j

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

জে এবং কে রেবমুতে পূর্ণসংখ্যার মান শূন্যে আরম্ভ করা হয়। এবং পূর্বোক্ত হিসাবে, পুরো জিনিসটি শেষ মানটিতে মূল্যায়ন করে। সুতরাং প্রোগ্রামের শেষে একটি জে রেফারেন্স মানে আপনি পুনরাবৃত্তির সংখ্যা পান।

ব্যবহার:

>> rebmu/args [u[++jE1 AeEV?a[d2A][a1M3a]]j] 16
== 4

Answer 8

পাইথন repl, 48

আমি বিশ্বাস করি না যে এর চেয়ে কম সংক্ষেপে প্রকাশ নেই n=3*n+1;n/=1+n%2*5;। আমি সম্ভবত সমস্ত একই দৈর্ঘ্যের এক ডজন বিভিন্ন এক্সপ্রেশন পেয়েছি ...

i=0
n=input()
while~-n:n=3*n+1;n/=1+n%2*5;i+=1
i

সম্পাদনা: আমি আর একটি সমাধান খুঁজে পেয়েছি যা কখনই দ্বন্দ্ব করবে না, তবে ভাগ না করাও মজাদার।

s='s'
i=s
n=i*input()
while 1:
 while n==n[::2]+n[::2]:i+=s;n=n[::2]
 if n==s:i.rindex(s);break
 n=3*n+s
 i+=s

Comments

আমার মস্তিষ্ক এখন ব্যথা।

— দানিরো

@ ডানিরো দ্বিতীয় সমাধানটি কেবল আপনার জন্য।

— বুথবি

কি শান্তি. আমি সম্মানিত করছি!

— ডানিরো

(n//2,n*3+1)[n%2]খাটো হয়।

— ইভপোক

@ ইভপোক n/2পাশাপাশি কাজ করবে না আমরা জানি এটি কি সমান ?

— জর্জ

Answer 9

এপিএল (31)

A←0⋄A⊣{2⊤⍵:1+3×⍵⋄⍵÷2}⍣{⍺=A+←1}⎕

Comments

পুরাতন উত্তর, এখনো, 27:{1=⍵:0⋄2|⍵:1+∇1+3×⍵⋄1+∇⍵÷2}

— ঊরীয়েল

{1=⍵:0⋄1+∇⊃⍵⌽0 1+.5 3×⍵}

— ngn

Answer 10

জে, 30 টি অক্ষর

<:#-:`(1+3&*)`]@.(2&|+1&=)^:a:

কাঙ্ক্ষিত থেকে বেশ দীর্ঘ দীর্ঘ পরিণত

ব্যবহার:

   <:#-:`(1+3&*)`]@.(2&|+1&=)^:a:2
1
   <:#-:`(1+3&*)`]@.(2&|+1&=)^:a:16
4
   <:#-:`(1+3&*)`]@.(2&|+1&=)^:a:5
5
   <:#-:`(1+3&*)`]@.(2&|+1&=)^:a:7
16
   <:#-:`(1+3&*)`]@.(2&|+1&=)^:a:27
111

• -:`(1+3&*)`]তিনটি ক্রিয়া দ্বারা গঠিত একটি গ্রাউন্ড, তিনটি অনুষ্ঠানে ব্যবহৃত হয়। -:এর অর্থ "অর্ধ", (1+3&*)বা (1+3*])গুণের পদক্ষেপ এবং ](পরিচয়) এইডস সমাপ্তির এনকোড ।

• 2&|+1&=জেরুজ একটি সূচক গঠন। আক্ষরিক অর্থে, "ভাগের পরে বাকি দুটি যোগফল এটি সমান কিনা"।

• #verb^:a:পদক্ষেপগুলি সংগ্রহের সময় ফলাফল স্থিতিশীল না হওয়া অবধি এই ফাংশনটির পুনরাবৃত্তি করে (এখানে, স্পষ্টভাবে বাধ্য করা হয়), তারপরে সেগুলি গণনা করা হয়। @ জেবি থেকে চুরি হয়েছে । <:প্রশ্নের প্রয়োজনীয়তার সাথে সারিবদ্ধ করার জন্য একের পর এক ধাপ গণনা হ্রাস করে।

Comments

আমি যখনই কোনও জে সাবমিশন দেখি তখন আমি হাসিগুলিকে গণনা করি। এই এক চমত্কার ভাল আছে: <:, #-:, :`(, &*), =), )^:।

— প্রিমো

@ প্রিমো সুন্দর; তাদের ব্যাখ্যা চান? :-) <:"হ্রাস" বা "কম বা সমান" অর্থ, #অর্থ বা "এন বার", "গণনা" -:মানে "অর্ধেক" বা "Epsilon-সমতা", :`(এর অর্থ "অর্ধেক" বলেন শেষে চালু মধ্যে টাই একটি গ্রুন্ডে দুটি ক্রিয়া এবং একটি বাম বন্ধনী (গ্রুপিংয়ের জন্য ব্যবহৃত) &*)এর অর্থ "স্টাথ। গুণনের সাথে জড়িত" (গুণের সাথে 3 টি বন্ধুত্বপূর্ণ "তিন গুণ" অপারেটর তৈরি করে) এবং গোষ্ঠীকরণের সমাপ্তি। =সমতা যাচাই বা একাত্মতার অর্থে স্ব-শ্রেণিবদ্ধকরণ সম্পাদন করে। ^:শক্তি সংমিশ্রণ (ক্রিয়া পুনরাবৃত্তি)। যেহেতু অনেকগুলি ক্রিয়া ক্রোনার সাথে শেষ হয়, ... :-)

— জন ডিভোরাক

বছর পরে ... উন্নত লুপ ব্লক: '- & 2 # (> & 1 * -: + 2 & | * +: +>: @ -:) ^: ক:' -> -1 চর। : পি

— এলোমেলো

আরও বছর পরে ... <:#a:2&(<*|+|6&*%~)19 বাইট (-11)

— মাইল

Answer 11

গাম্বিট স্কিম, 106 98 টি অক্ষর, 40 বন্ধনী

(let((f(lambda(x)(cond((= x 1) 0)((odd? x)(+ 1(f(+ 1(* 3 x)))))(else(+ 1(f(/ x 2))))))))(f(read)))

91 89 অক্ষর সরাসরি সংজ্ঞায়িত সঙ্গে

(define(f x)(cond((= x 1)0)((odd? x)(+ 1(f(+ 1(* 3 x)))))(else(+ 1(f(/ x 2))))))(f(read))

Comments

আমি দীর্ঘদিন ধরে ছিলাম না, তবে আমার খেয়াল আছে যে সাধারণত লোকেরা প্রোগ্রামিং ভাষায় 1 টি উত্তর পোস্ট করে।

— জেসেডানো

দুঃখিত, আমি সে সম্পর্কে অবগত ছিলাম না :)

— ভ্যালেনটিন ক্লিমেট

পাইথনটিকে অপসারণ করার জন্য সম্পাদিত।

— ভ্যালেন্টিন ক্লিমেন্ট

সত্য না! লোকেরা প্রোগ্রামিং ভাষায় প্রতি একটি উত্তর পোস্ট করার ঝোঁক রাখে, তবে এর কারণ তারা সংক্ষিপ্ত উত্তর দিয়ে অন্য কারও সাথে সরাসরি প্রতিযোগিতা না করার চেষ্টা করছে। আপনি একই ভাষায় ভিন্ন উত্তর পোস্ট করলে কেউই অভিযোগ করবে না।

— ব্রেডবক্স

@ ব্রিডবক্স সত্য নয়। প্রতিটি সমাধান অন্যের তুলনায় নিজেই আকর্ষণীয় হলে আমি প্রতি ভাষাতে একটি উত্তর পোস্ট করি। যদি উভয় সমাধান উভয়ই একসাথে (একই অ্যালগরিদম, কোনও আকর্ষণীয় ভাষার কৌশল নয়) হিসাবে আকর্ষণীয় হয় তবে আমি সেগুলিকে এক হিসাবে পোস্ট করি। সাধারণত আমি একাধিক সমাধান পোস্ট করি না কারণ আমি প্রথমে একটি ভাষা চয়ন করি, তারপরে সেই ভাষায় সমস্যাটি সমাধান করি - তবে আমি সাধারণত অন্য ভাষায় একই লিখতে খুব অলস হয় - অথবা আমি অন্য কোনও প্রোগ্রামিং শিখতে যাত্রা শুরু করি ভাষা.

— জন ডিভোরাক

Answer 12

পাওয়ারশেল: 77 74 71 70 61

গল্ফ কোড:

for($i=(read-host);$i-ne1;$x++){$i=(($i/2),(3*$i+1))[$i%2]}$x

---

নোট:

আমি প্রথমে কোনও পূর্ণসংখ্যার সাথে জোর না করে ব্যবহারকারীর ইনপুট নেওয়ার চেষ্টা করেছি, তবে এটি একটি আকর্ষণীয় উপায়ে ভেঙে গেছে। যে কোনও বিজোড় ইনপুটগুলি ভুলভাবে প্রক্রিয়া করবে, তবে ইনপুটগুলিও ঠিক কাজ করবে। কী চলছে তা বুঝতে আমার এক মিনিট সময় লেগেছে।

গুণ বা সংযোজন করার সময়, পাওয়ারশেল প্রথমে টাইপ করা ইনপুটটিকে স্ট্রিং হিসাবে বিবেচনা করে। সুতরাং, '5'*3+116 এর পরিবর্তে '5551' হয়ে যায় even এমনকি ইনপুটগুলি ভাল আচরণ করেছিল কারণ পাওয়ারশেলের স্ট্রিংগুলির বিরুদ্ধে বিভাগের জন্য কোনও ডিফল্ট ক্রিয়া নেই। এমনকি বিজয় সংখ্যার মাধ্যমে অগ্রসর হওয়া ইনপুটগুলিও ঠিকঠাক কাজ করেছিল কারণ পাওয়ারশেলের লুপের মধ্যে একটি বিজোড় সংখ্যার দিকে যাওয়ার পরে, চলকটি ইতিমধ্যে গণিতের ক্রিয়াকলাপ দ্বারা পূর্ণসংখ্যায় বাধ্য হয়েছিল was

ডানকো ডার্বিককে নির্দেশ করার জন্য ধন্যবাদ যে আমি কেবল গুণিত অপারেশনটি উল্টাতে পারলাম এবং পাওয়ার শেল তার কাজটিকেread-host প্রথম অবজেক্টের উপর ভিত্তি করে রাখার দরকার নেই।

পাওয়ারশেল গল্ফারের টিপ: এই জাতীয় কিছু পরিস্থিতিতে যেমন switchমারধর করে if/else। এখানে, পার্থক্যটি ছিল 2 অক্ষর।

ডানকো ডুর্বিকের সৌজন্যে রক্ষা করুন : এই নির্দিষ্ট দৃশ্যের switchজন্য আরও 8 টি চরিত্র সংরক্ষণের পরিবর্তে একটি অ্যারে ব্যবহার করা যেতে পারে !

অ-পূর্ণসংখ্যার মানগুলি বা দুটির চেয়ে কম পূর্ণসংখ্যা পরীক্ষা করার ক্ষেত্রে কোনও ত্রুটি নেই।

আপনি যদি স্ক্রিপ্টটি নিরীক্ষণ করতে চান তবে স্ক্রিপ্টের ;$iশেষ বন্ধনীটির ঠিক আগে রাখুন।

আমি নিশ্চিত না ঠিক কতটা পাওয়ারশেল সংখ্যাকে পরিচালনা করে যে খুব বড় মানগুলিতে অগ্রসর হয়, তবে আমি আশা করি সঠিকতাটি কোনও কোনও মুহুর্তে হারিয়ে গেছে। দুর্ভাগ্যক্রমে, আমি আরও প্রত্যাশা করি যে স্ক্রিপ্টটি মারাত্মকভাবে ফুলে যাওয়া ছাড়া এটি নিয়ে তেমন কিছু করা যায় না।

---

মতামত সহ অবহেলিত কোড:

# Start for loop to run Collatz algorithm.
# Store user input in $i.
# Run until $i reaches 1.
# Increment a counter, $x, with each run.
for($i=(read-host);$i-ne1;$x++)
{
    # New $i is defined based on an array element derived from old $i.
    $i=(
        # Array element 0 is the even numbers operation.
        ($i/2),
        # Array element 1 is the odd numbers operation.
        (3*$i+1)
    # Array element that defines the new $i is selected by $i%2.
    )[$i%2]
}

# Output $x when the loop is done.
$x

# Variable cleanup. Don't include in golfed code.
rv x,i

---

পরীক্ষার কেস:

নিচে নিরীক্ষণ সক্ষম সহ কয়েকটি নমুনা দেওয়া আছে। আমি ইনপুট এবং চূড়ান্ত গণনায় লেবেল যুক্ত করে এবং কোলাটজ মানগুলি পৃথক করার জন্য ব্যবধান রেখে স্পষ্টতার জন্য কিছু আউটপুটও সম্পাদনা করেছি।

---
Input: 2

1

Steps: 1

---
Input: 16

8
4
2
1

Steps: 4

---
Input: 5

16
8
4
2
1

Steps: 5

---
Input: 7

22
11
34
17
52
26
13
40
20
10
5
16
8
4
2
1

Steps: 16

---
Input: 42

21
64
32
16
8
4
2
1

Steps: 8

---
Input: 14

7
22
11
34
17
52
26
13
40
20
10
5
16
8
4
2
1

Steps: 17

---
Input: 197

592
296
148
74
37
112
56
28
14
7
22
11
34
17
52
26
13
40
20
10
5
16
8
4
2
1

Steps: 26

---
Input: 31

94
47
142
71
214
107
322
161
484
242
121
364
182
91
274
137
412
206
103
310
155
466
233
700
350
175
526
263
790
395
1186
593
1780
890
445
1336
668
334
167
502
251
754
377
1132
566
283
850
425
1276
638
319
958
479
1438
719
2158
1079
3238
1619
4858
2429
7288
3644
1822
911
2734
1367
4102
2051
6154
3077
9232
4616
2308
1154
577
1732
866
433
1300
650
325
976
488
244
122
61
184
92
46
23
70
35
106
53
160
80
40
20
10
5
16
8
4
2
1

Steps: 106

---
Input: 6174

3087
9262
4631
13894
6947
20842
10421
31264
15632
7816
3908
1954
977
2932
1466
733
2200
1100
550
275
826
413
1240
620
310
155
466
233
700
350
175
526
263
790
395
1186
593
1780
890
445
1336
668
334
167
502
251
754
377
1132
566
283
850
425
1276
638
319
958
479
1438
719
2158
1079
3238
1619
4858
2429
7288
3644
1822
911
2734
1367
4102
2051
6154
3077
9232
4616
2308
1154
577
1732
866
433
1300
650
325
976
488
244
122
61
184
92
46
23
70
35
106
53
160
80
40
20
10
5
16
8
4
2
1

Steps: 111

---
Input: 8008135

24024406
12012203
36036610
18018305
54054916
27027458
13513729
40541188
20270594
10135297
30405892
15202946
7601473
22804420
11402210
5701105
17103316
8551658
4275829
12827488
6413744
3206872
1603436
801718
400859
1202578
601289
1803868
901934
450967
1352902
676451
2029354
1014677
3044032
1522016
761008
380504
190252
95126
47563
142690
71345
214036
107018
53509
160528
80264
40132
20066
10033
30100
15050
7525
22576
11288
5644
2822
1411
4234
2117
6352
3176
1588
794
397
1192
596
298
149
448
224
112
56
28
14
7
22
11
34
17
52
26
13
40
20
10
5
16
8
4
2
1

Steps: 93
---

প্রশ্নের ইনপুট নম্বরগুলি নয় এমন ইনপুট নম্বরগুলি সম্পর্কে আকর্ষণীয় বিট:

• 14এবং 197হয় কিথ নাম্বার
• 31তিনি একজন মার্সেন প্রাইম
• 6174তিনি কপ্রেকারের কনস্ট্যান্ট
• এবং সর্বশেষে, আমি ঠিক পছন্দ করি 8008135। এবং নামফলক , স্পষ্টতই।

Comments

নিস! আপনি এখনও এটা কিছুটা খাটো করতে পারেন দ্বারা প্রতিস্থাপিত switchসঙ্গে$i=(($i/2),($i*3+1))[$i%2]

— Danko Durbić

এছাড়াও, আপনাকে read-hostসংখ্যায় রূপান্তর করতে হবে না - কেবল পরিবর্তন $i*3করতে হবে 3*$i।

— ডানকো দুর্বিয়

সুইচ পরিবর্তে একটি অ্যারে? উজ্জ্বল! এবং $i*3চারপাশে অদলবদল - আমি কেন ইতিমধ্যে এটি ভেবে দেখিনি?

— ইসজি

param($i)for(;$i-ne1;$x++){$i=(($i/2),(3*$i+1))[$i%2]}$x- ৫ by বাইট পেতে প্যারামিটারের জন্য পঠন-হোস্টটিকে অদলবদল করুন । এটি অনলাইন লিঙ্কটি ব্যবহার করে দেখুন

— টেসেলেলটিংহেকলার

Answer 13

80386 সমাবেশ, 16 বাইট

এই উদাহরণটি এটিএন্ডটি সিনট্যাক্স এবং ফাস্টকল কলিং কনভেনশন ব্যবহার করে, যুক্তিটি এতে যায় ecx:

collatz:
        or $-1,%eax              # 3 bytes, eax = -1;
.Loop:  inc %eax                 # 1 byte,  eax += 1;
        lea 1(%ecx,%ecx,2),%edx  # 4 bytes, edx = 3*ecx + 1;
        shr %ecx                 # 2 bytes, CF = ecx & 1;
                                 #          ecx /= 2;
                                 #          ZF = ecx == 0;
        cmovc %edx,%ecx          # 3 bytes, if (CF) ecx = edx;
        jnz .Loop                # 2 bytes, if (!ZF) goto .Loop;
        ret                      # 1 byte,  return (eax);

এখানে মেশিন কোডের 16 বাইট ফলাফল রয়েছে:

83 c8 ff 40 8d 54 49 01 d1 e9 0f 42 ca 75 f4 c3

Answer 14

ব্র্যাচল্যাগ , 16 বাইট

1b|{/₂ℕ|×₃+₁}↰+₁

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

ব্যাখ্যা

         Either:
  1        The input is 1.
  b        In which case we unify the output with 0 by beheading the 1
           (which removes the leading digit of the 1, and an "empty integer"
           is the same as zero).
|        Or:
  {        This inline predicate evaluates a single Collatz step on the input.
           Either:
    /₂       Divide the input by 2.
    ℕ        And ensure that the result is a natural number (which is
             equivalent to asserting that the input was even).
  |        Or:
    ×₃+₁     Multiply the input by 3 and add 1.
  }
  ↰        Recursively call the predicate on this result.
  +₁       And add one to the output of the recursive call.

একই বাইট গণনায় একটি বিকল্প সমাধান:

;.{/₂ℕ|×₃+₁}ⁱ⁾1∧

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

;.          The output of this is a pair [X,I] where X is the input and
            I will be unified with the output.
{/₂ℕ|×₃+₁}  This is the Collatz step predicate we've also used above.
ⁱ⁾          We iterate this predicate I times on X. Since we haven't actually
            specified I, it is still a free variable that Brachylog can backtrack
            over and it will keep adding on iterations until the next
            constraint can be satisfied.
1           Require the result of the iteration to be 1. Once this is
            satisfied, the output variable will have been unified with
            the minimum number of iterations to get here.
∧           This AND is just used to prevent the 1 from being implicitly
            unified with the output variable as well.

Answer 15

গল্ফস্ক্রিপ্ট (২৩ টি অক্ষর)

~{.1&{.3*)}*.2/.(}do;],

অনলাইন পরীক্ষা

Answer 16

এফ # - 65 টি অক্ষর

let rec c n=function 1->n|i->c(n+1)(if i%2=0 then i/2 else i*3+1)

Answer 17

পাইথন 68 58 54 52 অক্ষর

f=lambda n:1+(n-2and f((n/2,3*n+1)[n%2]));f(input())

টিপসটির জন্য বাকুরিউ এবং বুথবাইকে ধন্যবাদ :)

Comments

আপনি n%2and 3*n+1or n/25 টি অক্ষর সংরক্ষণ করতে ব্যবহার করতে পারেন । পাইথন 2 এও আপনি কলটি সরাতে পারেন, 588 intবাইটের আকার হ্রাস করতে পারেন ।

— বাকুরিউ

ওহ, আপনি এমনকি যে এর চেয়ে খাটো পেতে পারেন: [n/2,3*n+1][n%2]।

— বুথবি

তা নিফটি!

— ভ্যালেনটিন ক্লিমেন্ট

এই অজগরটি কি 2.7? পাইথনে আমি একটি ত্রুটি পেয়েছি 3.5.1? unsupported operand type(s) for -: 'str' and 'int'

— জর্জ

Answer 18

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

11
2
(2+)1
$1$1$0$0$0$0
2.*
$0x
)`2
1
1?x
1

আনারিতে ইনপুট নেয় এবং আউটপুট প্রিন্ট করে।

প্রতিটি লাইনের নিজস্ব ফাইলটিতে যাওয়া উচিত। বাইট-কাউন্টে অতিরিক্ত ফাইল প্রতি 1 বাইট যোগ করা হয়েছে।

আপনি -sপতাকা সহ একটি ফাইল হিসাবে কোড চালাতে পারেন । উদাহরণ:

> echo -n 1111111|retina -s collatz
1111111111111111

অ্যালগরিদম হ'ল আনারি নম্বর সহ কোলাটজ পদক্ষেপ করা এবং সংখ্যাটি x1 না হলে স্ট্রিংয়ের শেষে একটি নতুন স্টেপ-মার্কার যুক্ত করার একটি লুপ ।

লুপটি শেষ হয়ে গেলে 1, আমরা চিহ্নিতকারীগুলিকে একটি অবিচ্ছিন্ন সংখ্যায় (শীর্ষস্থানীয় সরানো 1) রূপান্তর করি যা পছন্দসই আউটপুট।

Answer 19

জেলি , অ-প্রতিযোগিতামূলক

12 বাইট এই উত্তরটি প্রতিদ্বন্দ্বিতামূলক নয়, যেহেতু চ্যালেঞ্জটি জেলি তৈরির পূর্বে রয়েছে।

×3‘$HḂ?ß0’?‘

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

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

×3‘$HḂ?ß0’?‘  Main link. Argument: n (integer)

     Ḃ?       Yield the last bit of n is 1:
   $            Evaluate the three links to the left as a monadic chain:
×3                Multiply n by 3.
  ‘               Increment the product by 1.
    H           Else, halve n.
         ’?   If n-1 is non-zero:
       ß        Recursively call the main link.
        0     Else, yield 0.
           ‘  Increment the result by 1.

Answer 20

ডিসি, 27 টি অক্ষর

বুথবাইয়ের কালো যাদুটি প্রয়োগ করা :

?[d3*1+d2%5*1+/d1<x]dsxxkzp

আমি কীভাবে - বা তা - এটি কীভাবে কাজ করে তা বুঝতে পারছি কিনা তা আমি নিশ্চিত নই ।

ব্যবহার:

$ dc collatz.dc <<< 7
16

ডিসি, 36 টি অক্ষর

আমার নিজস্ব সৃষ্টি; কিছুটা বেশি traditionalতিহ্যবাহী পদ্ধতির, এমনকি আমাকে বিবৃতিতে কোনও elseঅংশের অভাব কাটিয়ে উঠতে আমাকে ভাষাটিও বেশ বিচলিত করতে হয়েছিল if:

?[2/2Q]se[dd2%[0=e3*1+]xd1<x]dsxxkzp

অভ্যন্তরীণভাবে এটি ক্রমগুলির সমস্ত সংখ্যার উত্পাদন করে এবং স্ট্যাকের উপর এগুলি সংরক্ষণ করে, তারপরে চূড়ান্ত পপ করে 1এবং স্ট্যাকের উচ্চতা প্রদর্শন করে।

Comments

প্যারিটি হয় না কালো জাদু।

— বুথবি

না, তবে ওখানে খুব ঝরঝরে কৌশল! আমি নিজেও অনুরূপ স্টাফ নিজেই করেছি, আমি এক্ষেত্রে কেবল এটি সম্পর্কে ভাবিনি। যা আমাকে দ্বিতীয় সেকেন্ডের জন্য হোঁচট খেয়েছিল তা বিভাগ ছিল, তবে আমি এটি পেয়েছি: আপনি ছয়টি দিয়ে ভাগ করুন, প্রথম অপারেশনটি (* = 3, + = 1) আবার ভাগ করে যদি প্যারিটি ভুল ছিল, এবং পূর্ণসংখ্যা বিভাগের কারণে যোগটি যায় খুব দূরে, এবং আমরা মূলত / = 2 করেছি। খুব চতুর :)

— দানিরো

+1 টি। আমি ভেবেছিলাম আমি ডিসি দিয়ে এই চ্যালেঞ্জটি চূর্ণ করব, তবে কেবল 40 টির মতো পেয়েছি got আমি আপনার 27 টি উত্তর দেখেছি। আচ্ছা ভালো.

— ডিজিটাল ট্রমা

আমি এই চ্যালেঞ্জটি দেখিনি, তবে ডিসিতে কোলাটজ সিকোয়েন্স মুদ্রণের বিষয়ে কিছুক্ষণ আগে ব্লগ করেছিলাম। আমার এপ্রোচটি আপনার অনুরূপ তবে বাইট হারিয়েছে তাই পোস্ট করার কোনও কারণ আমি দেখতে পাচ্ছি না। যাইহোক, আমি যখন প্রতিটি পদক্ষেপ মুদ্রণ থেকে সহজে পদক্ষেপের সংখ্যা মুদ্রণ করতে যাব তা দেখার জন্য আমি যখন আমার দিকে তাকাচ্ছিলাম তখন আমি এমন একটি জিনিস পেয়েছি যা আপনার কাছ থেকে একটি বাইট গল্ফ করতে পারে ... যেহেতু কোলাটজ ক্রমটি সর্বদা 2 থেকে 1 এ চলে যাবে, আপনি নিজের শর্ত পরিবর্তন করতে পারেন 2<xএবং এ থেকে মুক্তি পেতে পারেন k। সেক্ষেত্রে আপনি চার বছর পরে আবার একটি বাইট চান। : ডি

— brhfl

Answer 21

ব্রেনফাক , 59 56 বাইট

,-[<->[[>]+<[-<]>>]>[-<<[++>+<]>->]<<[+>+++<]<<+>>>]<<<.

এটি অনলাইন চেষ্টা করুন! (সহজেই ব্যবহারের সুবিধার জন্য সংশোধিত)

অক্ষর কোড হিসাবে ইনপুট এবং আউটপুট। এটি নির্বিচারে আকারের কক্ষগুলির সাথে আরও কার্যকর, তবে এখনও সীমাবদ্ধ কক্ষের আকারে ছোট মানগুলির সাথে কাজ করতে পারে।

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

Tape Format:
Counter 0 Copy Number Binary...
^End           ^Start

,-[ Get input, decrement by 1 and start loop
  <->                  Initialises the copy of the value at -1
  [[>]+<[-<]>>]        Converts the input to binary while preserving a negative copy
  <+>>[-<<[++>+<]>->] If the last digit of the binary is 1 (n-1 is odd), divide by 2 and decrement
  <<[+>+++<]            If the last digit of the binary is 0 (n-1 is even), multiply by 3
  <<+>>>               Increment counter and end on n-1
]<<<.                 End loop and print counter

Answer 22

হেক্সাগনি , 48 44 বাইট

?(]$_)"){{?{*')}/&!/={:<$["/>&_(.<@2'%<>./>=

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

সম্প্রসারিত:

     ? ( ] $ _
    ) " ) { { ?
   { * ' ) } / &
  ! / = . { < $ [
 " / > & _ ( . < @
  2 ' % < > : / >
   = . . . . . .
    . . . . . .
     . . . . .

নোট করুন যে এটি 1আহ ... কারণে ব্যর্থ হয়েছে । সত্যি বলতে কী, কীভাবে এটি আর কাজ করে আমি সত্যিই নিশ্চিত নই। আমি শুধু জানি যে বিজোড় সংখ্যার কোডটি কি সংখ্যার জন্য পিছন দিকে চালিত হয়? একরকম?

নতুন সংস্করণটি পূর্বের তুলনায় অনেক বেশি পরিষ্কার, তবে তুলনায় আরও কয়েকটি দিকনির্দেশ রয়েছে এবং বিভক্ত-শূন্য ত্রুটিতেও শেষ হয়। এটি যখন ত্রুটিযুক্ত না হয় কেবল তখনই এটি প্রকৃতপক্ষে 1সঠিকভাবে পরিচালনা করে ।

Comments

If a number < 2 is input ... output does not matter.: ও)

— সোক ২

@ সোপ ইয়ে, এই কারণেই আমি এটি পোস্ট করার জন্য পাগল হওয়ার পরিবর্তে এটি ঠিক করার চেষ্টা করেছি

— জো কিং ২

Answer 23

সি, 70 69 অক্ষর

বেশ সহজ, কোন কৌশল নয়।
স্টিডিনের কাছ থেকে ইনপুট পড়ে।

a;
main(b){
    for(scanf("%d",&b);b-1;b=b%2?b*3+1:b/2)a++;
    printf("%d",a);
}

Answer 24

প্রশ্নঃ 46

{i::0;{x>1}{i+:1;$[x mod 2;1+3*x;(_)x%2]}\x;i}

Comments

32 বাইট সহ(#)1_(1<){(1+3*x;x%2)0=x mod 2}\

— স্ট্রিস্টার

Answer 25

রুবি 1.9, 49 টি অক্ষর

রুবিফাইন্ড ভ্যালেন্টিন ক্লিমেন্টের পাইথন উত্তর , ছুরিকাঘাতের ল্যাম্বদা সিনট্যাক্স ব্যবহার করে। এটি অপঠনযোগ্যতার জন্য এটি একটি বিবৃতিতে স্কিজ করে zed

(f=->n{n>1&&1+f[[n/2,3*n+1][n%2]]||0})[gets.to_i]

কিছু ওভারহেড কারণ রুবি, পাইথনের বিপরীতে, বুলিয়ানগুলির সাথে সংখ্যার মিশ্রণ সম্পর্কে সন্তুষ্ট নয়।

Answer 26

সি ++ ( 51 48)

এটি একটি পুনরাবৃত্ত ফাংশন যা এটি করে; ইনপুট পড়া পৃথকভাবে আসে।

int c(n){return n==1?0:1+(n%2?c(n*3+1):c(n/2));}

আমি নিশ্চিত যে আমি == 0স্টাফ দিয়ে কিছু ধরণের "এবং / অথবা" কৌশল করতে পারি তবে কীভাবে তা আমার কোনও ধারণা নেই।

Comments

আপনি সরাতে পারেন ==0এবং শর্তযুক্তের দিকগুলি অদলবদল করতে পারেন

— ডুরকনব

এছাড়াও, হ্যান্ডেল করার দরকার নেই n==1কারণ আমি এই প্রশ্নে উল্লেখ করেছি যে সংখ্যাটি সর্বদা 1 এর চেয়ে বেশি

— ডোরকনব

সমস্যাটি হ'ল n==1বেস রিকার্শন কেস। n==2সেখানে রাখলে স্কোর কোনও উন্নতি করতে পারে না।

— জো জেড।

আহ, তাহলে আপনি কেবল এটির সাথে এটি প্রতিস্থাপন করতে পারেন: return~-n?এবং শর্তসাপেক্ষ দিকগুলি অদলবদল করুন

— ডোরকনব

। n==1== n<2।

— ক্যালকুলেটরলাইন

Answer 27

~ - ~! (কোন মন্তব্য নেই) - 71 53

এই ভাষাটি গল্ফিংয়ের পক্ষে স্পষ্টতই সেরা নয় কারণ এতে প্রচুর পরিমাণে দেশীয় কার্যকারিতা নেই, তবে এটি এর সৌন্দর্য।

'=|*;~~[*,~~~-~]*/~~|:''=|'''==~[*]'''='&''':''&*+~|:

প্রথমে '''আপনার ইনপুটটিতে সেট করুন। ফাংশনটি ''এরপরে %ইনপুট হিসাবে ডাকা যেতে পারে এবং উত্তরটি ফিরে আসবে যেমন:

'''=~~~~~:''&%:

এই ফিরে আসবে ~~~~~। এটি আসলে n==1(এটি চিরকালের সাথে লুপ করে n==0) জন্য কাজ করে ।

এই ভাষা হিসাবে সর্বদা হিসাবে, অরক্ষিত।

Answer 28

জাভাস্ক্রিপ্ট (ES6) - 29 টি অক্ষর

f=x=>x>1?f(x%2?x*3+1:x/2)+1:0

একটি ফাংশন তৈরি করে fযা একক যুক্তি গ্রহণ করে এবং পুনরাবৃত্তির সংখ্যা প্রদান করে।

জাভাস্ক্রিপ্ট - 31 অক্ষর

for(c=0;n>1;n=n%2?n*3+1:n/2)++c

ধরে নিই যে ইনপুটটি nভেরিয়েবলের cমধ্যে রয়েছে এবং একটি ভেরিয়েবল তৈরি করে যা পুনরাবৃত্তির সংখ্যা (এবং cএটি কনসোলকে তার শেষ কমান্ড হিসাবে আউটপুটও দেয়) তৈরি করে।

Comments

28 বাইট

— শেগি

Answer 29

পার্ল 6, 40 বাইট

ভ্যালেন্টিন ক্লিমেন্ট এবং ড্যানিরো অনুসারে পুনরাবৃত্তির ফাংশন পদ্ধতি : 40 টি অক্ষর

sub f(\n){n>1&&1+f n%2??3*n+1!!n/2}(get)

অলস তালিকার পদ্ধতি: 32 টি অক্ষর

+(get,{$_%2??$_*3+1!!$_/2}...^1)

Answer 30

> <>, ২ 26 26 23 বাইট

\ln;
\::2%:@5*1+2,*+:2=?

অন্যান্য> <> উত্তরগুলির মতো, এটি স্ট্যাকের ক্রমটি তৈরি করে। ক্রমটি 2 এ পৌঁছে গেলে স্ট্যাকের আকারটি নেওয়া পদক্ষেপের সংখ্যা।

@ হোহমানফ্যানকে ধন্যবাদ, পরের মানটি সরাসরি গণনা করার জন্য খুব চালাক পদ্ধতিতে 3 বাইট সংরক্ষণ করেছে। অনুক্রমের পরবর্তী মান গণনা করতে ব্যবহৃত সূত্রটি হ'ল:

$$f(n)=n\cdot\frac{5(n\bmod2)+1}{2}+(n\bmod2)$$

ভগ্নাংশটি মানচিত্রগুলি এমনকি ০.০ এর সংখ্যা এবং বিজোড় সংখ্যা 3.. থেকে গুণ করে nএবং যোগ n%2করে গণনা সম্পূর্ণ করে - পরবর্তী মানটি মোটেও পছন্দ করার দরকার নেই!

সম্পাদনা 2: এখানে প্রাক- @ হোমম্যানফান সংস্করণটি রয়েছে:

\ln;
\:::3*1+@2,@2%?$~:2=?

এখানে কৌশলটি হ'ল উভয়ই 3n+1এবং n/2অনুক্রমের প্রতিটি ধাপে গণনা করা হয় এবং ক্রম থেকে বাদ পড়ার জন্য পরে বেছে নেওয়া হয়। এর অর্থ হ'ল কোডটি 1 পৌঁছা না হওয়া পর্যন্ত শাখার দরকার নেই, এবং ক্রমের গণনা কোডের এক লাইনে বাঁচতে পারে।

সম্পাদনা: একমাত্র ইতিবাচক পূর্ণসংখ্যা যা 1 এর দিকে যেতে পারে তা বুঝতে পেরে অন্য একটি চরিত্রটি গল্ফ করে As প্রোগ্রামের আউটপুট ইনপুট <2 এর জন্য কোনও ব্যাপার না, 2 স্ট্যাকের আকার ছেড়ে রেখে ক্রম প্রজন্ম শেষ হতে পারে প্রয়োজনীয় পদক্ষেপের সঠিক সংখ্যা হচ্ছে।

প্রিভিউসার সংস্করণ:

\~ln;
\:::3*1+@2,@2%?$~:1=?

Comments

আপনি যদি দ্বিতীয় লাইনটি আরও বেশি করে বন্ধ করেন তবে আপনি 23 এ গল্ফ করতে পারেন:\::2%:@5*1+2,*+:2=?

— হোহমানফ্যান