นี่คือการคาดคะเน Collatz (OEIS A006577 ):

• เริ่มต้นด้วยจำนวนเต็มn > 1
• ทำซ้ำขั้นตอนต่อไปนี้:
  • ถ้าnเป็นเลขคู่ให้หารด้วย 2
  • ถ้าnเป็นเลขคี่ให้คูณด้วย 3 แล้วบวก 1

มันได้รับการพิสูจน์ว่าสำหรับจำนวนเต็มบวกทั้งหมดถึง5 * 2 ⁶⁰หรือประมาณ5764000000000000000 , nที่สุดจะกลายเป็น1

งานของคุณคือการหาวิธีการหลายซ้ำก็จะใช้เวลา (จากลดลงครึ่งหนึ่งหรือสามบวกหนึ่ง) ถึง1

xkcd ที่เกี่ยวข้อง :)

กฎ:

• รหัสที่สั้นที่สุดชนะ
• หากตัวเลข <2 เป็นอินพุตหรือไม่ใช่จำนวนเต็มหรือไม่ใช่ตัวเลขเอาต์พุตจะไม่สำคัญ

กรณีทดสอบ

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

GolfScript, 24 23 21 20 18 ตัวอักษร

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

ถือว่าอินพุตบน stdin ทดสอบออนไลน์

C - 50 47 ตัวอักษร

น่าเสียดายที่ C เล็ก ๆ น้อย ๆ แต่น่าเสียดายที่ต้องมีรหัสจำนวนมากสำหรับ I / O พื้นฐานดังนั้นการย่อทุกอย่างที่ลงจึงทำให้ UI ไม่ได้ใช้งานง่าย

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
$>

Perl 34 (+1) ตัวอักษร

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

การละเมิด$\สำหรับผลลัพธ์สุดท้ายตามปกติ เรียกใช้กับตัวเลือกบรรทัดคำสั่งเข้ามาจาก-pstdin

ที่บันทึกไว้หนึ่งไบต์เนื่องจากอีเลียสแวน Ootegem โดยเฉพาะการสังเกตว่าทั้งสองต่อไปนี้เทียบเท่า:

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

แม้ว่าหนึ่งไบต์อีกต่อไปมันจะช่วยประหยัดไบต์ที่สองโดยการตัดทอนให้เหลือเพียง$_/2.5

ตัวอย่างการใช้งาน:

$ echo 176 | perl -p collatz.pl
18

PHP 54 ไบต์

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

จาวาสคริปต์สำหรับรางวัล Wooden Spoon Award ดูเหมือนจะสั้นลงเล็กน้อยในความท้าทายนี้ แม้ว่าจะมีพื้นที่ไม่มากนักสำหรับการสร้างสรรค์ด้วยปัญหานี้ อินพุตถูกใช้เป็นอาร์กิวเมนต์บรรทัดคำสั่ง

ตัวอย่างการใช้งาน:

$ php collatz.php 176
18

Mathematica (35)

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

การใช้งาน:

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

ตามปกติฉันจะเริ่มคำตอบด้วยตัวเอง

JavaScript, 46 44 ตัวอักษร (ทำงานบนคอนโซล)

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

ชวา, 165, 156, 154,134,131,129,128 , 126 (ภาษา verbose ต้องการความรักเช่นกัน)

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))

นั่นเป็นผู้ชายที่สวยงาม ขอบคุณ Pater Taylor !!! และแนวคิดของการใช้ลูป for ถูกขโมยจาก ugoren

ฉันเปลี่ยน Integer เป็น Short

Rebmu : 28

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

สำหรับปัญหาสั้น ๆ และคณิตศาสตร์นี้ GolfScript มีแนวโน้มที่จะชนะโดย Rebmu ร้อยละ (ถ้าไม่จำเป็นต้องพูดให้อ่านไฟล์จากอินเทอร์เน็ตหรือสร้างไฟล์ JPG) แต่ฉันคิดว่าส่วนใหญ่จะเห็นด้วยกับตรรกะของ Golfscript นั้นใกล้ที่จะติดตามได้ง่ายและกองปฏิบัติการที่รันได้ทั้งหมดนั้นใหญ่กว่า

แม้ว่า REBOL ของผู้สร้างเองคาร์ล Sassenrathบอกผมว่าเขาพบ Rebmu "อ่านไม่ได้" เขาไม่ว่างและไม่ได้มีเวลาที่จะปฏิบัติจริงการเปลี่ยนแปลงหมูละตินเหมือนผ่านunmushing นี่เป็นเพียงการแปลง:

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

โปรดทราบว่าพื้นที่ที่ถูกต้องที่จะได้รับ: การแทน นี่คือ "ชุดคำ!" และผู้ประเมินจะสังเกตเห็นว่าสัญลักษณ์ประเภทใดที่จะทริกเกอร์การมอบหมาย

หากมีการเขียนในตัวย่อ (ยังเขียน Rebol อย่างเชื่องช้า) คุณจะได้รับ:

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

Rebol เช่น Ruby จะประเมินบล็อกเป็นค่าสุดท้าย UNTIL loop เป็นรูปแบบของการวนรอบที่แปลกประหลาดที่ไม่มีเงื่อนไขการวนซ้ำมันจะหยุดการวนซ้ำเมื่อบล็อกของมันประเมินสิ่งที่ไม่ใช่ FALSE หรือ NONE ดังนั้น ณ จุดที่1 ==ผลลัพธ์ของการกำหนด A (อาร์กิวเมนต์ให้ rebmu) ให้กับผลลัพธ์ของ Collatz เงื่อนไข (เช่น IF-ELSE ซึ่งประเมินให้กับสาขาที่เลือก) ... การแบ่งลูป

J และ K ถูกเตรียมใช้งานเป็นค่าจำนวนเต็มศูนย์ใน Rebmu และดังที่กล่าวไปแล้วสิ่งทั้งปวงจะประเมินเป็นค่าสุดท้าย ดังนั้นการอ้างอิง J ในตอนท้ายของโปรแกรมหมายความว่าคุณจะได้จำนวนการทำซ้ำ

การใช้งาน:

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

Python ทำสำเนา 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

APL (31)

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

J, 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&*)`]เป็น gerund ประกอบด้วยสามคำกริยาใช้สามครั้ง -:หมายถึง "halve" (1+3&*)หรือ(1+3*])เข้ารหัสขั้นตอนการคูณและ](identity) ช่วยในการยกเลิก

• 2&|+1&=รูปแบบดัชนีไปยัง gerund ตัวอักษร "ส่วนที่เหลือหลังจากการหารด้วยสองบวกไม่ว่าจะเท่ากับหนึ่ง"

• #verb^:a:ทำซ้ำฟังก์ชันจนกว่าผลลัพธ์จะมีเสถียรภาพ (ที่นี่บังคับอย่างชัดเจน) ขณะรวบรวมขั้นตอนจากนั้นนับจำนวน ขโมยมาจาก @JB <:ลดจำนวนขั้นตอนทีละหนึ่งเพื่อให้สอดคล้องกับข้อกำหนดของคำถาม

รูปแบบการเล่นกล106 106ตัวอักษร 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 chars ที่กำหนดโดยตรง

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

PowerShell: 77 74 71 70 61

รหัส Golfed:

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

หมายเหตุ:

ตอนแรกฉันพยายามที่จะป้อนข้อมูลผู้ใช้โดยไม่บังคับให้เป็นจำนวนเต็ม อินพุตแปลก ๆ จะประมวลผลไม่ถูกต้อง แต่แม้อินพุตจะทำงานได้ดี ฉันใช้เวลาสักครู่เพื่อตระหนักว่าเกิดอะไรขึ้น

เมื่อทำการคูณหรือการเพิ่ม PowerShell จะถือว่าอินพุตที่ไม่ได้พิมพ์เป็นสตริงก่อน ดังนั้น'5'*3+1กลายเป็น '5551' แทน 16 อินพุตที่เข้ากันได้ดีเนื่องจาก PowerShell ไม่มีการดำเนินการเริ่มต้นสำหรับการหารกับสตริง แม้แต่อินพุตที่มีความคืบหน้าผ่านเลขคี่ก็ใช้ได้ดีเพราะเมื่อ PowerShell ถึงเลขคี่ในลูปตัวแปรก็ถูกบังคับให้เป็นจำนวนเต็มโดยการดำเนินการทางคณิตศาสตร์อยู่แล้ว

ขอบคุณDanko Durbicสำหรับการชี้ให้เห็นฉันสามารถสลับการดำเนินการคูณและไม่ต้องแปลงread-hostเป็น int เนื่องจาก PowerShell ใช้การดำเนินการกับวัตถุแรก

เคล็ดลับ PowerShell นักกอล์ฟ: สำหรับบางสถานการณ์เช่นนี้หนึ่งจังหวะswitch if/elseนี่คือความแตกต่างคือ 2 ตัวอักษร

Protip Courtesy of Danko Durbic : สำหรับสถานการณ์นี้คุณสามารถใช้อาเรย์แทนswitchเพื่อบันทึกอักขระได้อีก 8 ตัว!

ไม่มีข้อผิดพลาดในการตรวจสอบค่าที่ไม่ใช่จำนวนเต็มหรือจำนวนเต็มน้อยกว่าสอง

หากคุณต้องการตรวจสอบสคริปต์ให้ใส่;$iวงเล็บปิดล่าสุดไว้ในสคริปต์

ฉันไม่แน่ใจว่า PowerShell สามารถจัดการกับตัวเลขที่คืบหน้าไปสู่ค่าที่มีขนาดใหญ่มากเพียงใด แต่ฉันคาดว่าความแม่นยำจะหายไปในบางจุด น่าเสียดายที่ฉันยังคาดหวังว่าจะมีไม่มากที่สามารถทำได้เกี่ยวกับสิ่งนั้นโดยไม่ทำให้สคริปต์รุนแรง

รหัส Ungolfed พร้อมความคิดเห็น:

# 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

กรณีทดสอบ:

ด้านล่างคือตัวอย่างบางส่วนที่เปิดใช้งานการตรวจสอบ ฉันยังแก้ไขผลลัพธ์บางอย่างเพื่อความชัดเจนโดยการเพิ่มเลเบลให้กับอินพุตและการนับครั้งสุดท้ายและใส่ระยะห่างเพื่อแยกค่า Collatz

---
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เป็นMersenne Prime
• 6174คือค่าคงที่ของ Kaprekar
• 8008135และสุดท้ายผมชอบเพียง และNumberphileอย่างเห็นได้ชัด

ชุดประกอบ 80386 ขนาด 16 ไบต์

ตัวอย่างนี้ใช้ไวยากรณ์ของ AT&T และการเรียกประชุม fastcall อาร์กิวเมนต์มี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

Brachylogขนาด 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.

GolfScript (23 ตัวอักษร)

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

ทดสอบออนไลน์

F # - 65 ตัวอักษร

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

Python 68 58 54 52 ตัวอักษร

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

ขอบคุณบาคุริและบูธบายสำหรับคำแนะนำ :)

เรติน่า 43 ไบต์

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

ใช้อินพุตและพิมพ์เอาต์พุตใน unary

แต่ละบรรทัดควรไปที่ไฟล์ของตนเอง 1 ไบต์ต่อไฟล์พิเศษที่เพิ่มลงในจำนวนไบต์

คุณสามารถเรียกใช้รหัสเป็นหนึ่งไฟล์ด้วยการ-sตั้งค่าสถานะ เช่น:

> echo -n 1111111|retina -s collatz
1111111111111111

อัลกอริธึมเป็นการวนซ้ำของการทำขั้นตอน Collatz โดยใช้หมายเลขยูนารีและเพิ่มตัวทำเครื่องหมายขั้นตอนใหม่xที่ท้ายสตริงถ้าตัวเลขนั้นไม่ใช่ 1

เมื่อลูปสิ้นสุดลง1เราจะแปลงเครื่องหมายเป็นจำนวนยูนารี (นำส่วนนำออก1) ซึ่งเป็นเอาต์พุตที่ต้องการ

เยลลี่ไม่ใช่การแข่งขัน

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.

dc, 27 ตัวอักษร

การใช้เวทย์มนตร์สีดำของบู๊ทบาย :

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

ฉันไม่แน่ใจจริงๆถ้าฉันเข้าใจว่ามันทำงานอย่างไร

$ dc collatz.dc <<< 7
16

dc, 36 ตัวอักษร

การสร้างของฉันเอง; วิธีการแบบดั้งเดิมค่อนข้างมากถึงแม้ว่าฉันต้องทะเลาะกับภาษาที่ค่อนข้างยุติธรรมเพื่อเอาชนะการขาดelseส่วนของifข้อความ:

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

ภายในผลิตหมายเลขทั้งหมดของลำดับและเก็บไว้ในสแต็คจากนั้นปรากฏขึ้นสุดท้าย1และแสดงความสูงสแต็ค

brainfuck , 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

Hexagony , 48 44 ไบต์

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

ลองออนไลน์!

ขยาย:

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

โปรดทราบว่านี้ล้มเหลวบน1สำหรับเอ่อ ... เหตุผล สุจริตฉันไม่แน่ใจจริงๆว่าวิธีนี้ทำงานได้อีกต่อไป สิ่งที่ฉันรู้ก็คือรหัสสำหรับเลขคี่นั้นวิ่งไปข้างหลังเป็นเลขคู่ อย่างใด?

เวอร์ชันใหม่นั้นสะอาดกว่ารุ่นก่อนมาก แต่มีทิศทางเปรียบเทียบน้อยกว่าและจบลงด้วยข้อผิดพลาดหารด้วยศูนย์ กรณีเดียวที่ไม่มีข้อผิดพลาดคือเมื่อมันจัดการ1ได้อย่างถูกต้องจริง

C, 70 69 ตัวอักษร

ค่อนข้างง่ายไม่มีเทคนิค
อ่านอินพุตจาก stdin

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

Q 46

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

Ruby 1.9, 49 ตัวอักษร

คำตอบ Pythonของ Rubyfied Valentin CLEMENT โดยใช้ไวยากรณ์ stabby lambda บีบมันเป็นคำสั่งเดียวเพื่อเพิ่มความไม่สามารถอ่านได้

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

บางคนค่าใช้จ่ายเพราะทับทิมซึ่งแตกต่างจาก Python ไม่มีความสุขกับการผสมตัวเลขกับบูลีน

C ++ ( 51 48)

นี่คือฟังก์ชันแบบเรียกซ้ำที่ทำสิ่งนี้ การอ่านอินพุตแยกต่างหาก

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

ฉันแน่ใจว่าฉันสามารถทำอะไรบางอย่าง "และ / หรือ" หลอกลวงด้วย== 0สิ่งของ แต่ฉันไม่รู้ว่าอย่างไร

~ - ~! (ไม่มีความคิดเห็น) - 71 53

ภาษานี้เห็นได้ชัดว่าไม่ได้ดีที่สุดสำหรับการเล่นกอล์ฟเนื่องจากมันไม่มีฟังก์ชั่นดั้งเดิมมากมาย แต่นั่นคือความงดงามของมัน

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

ก่อนอื่นให้ตั้งค่า'''อินพุตของคุณ ''สามารถเรียกใช้ฟังก์ชั่นพร้อมกับ%อินพุตและจะส่งคืนคำตอบดังนี้:

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

~~~~~นี้จะกลับ ใช้งานได้จริงn==1(มันวนซ้ำไปตลอดกาลn==0)

เช่นเคยกับภาษานี้ยังไม่ได้ทดสอบ

JavaScript (ES6) - 29 ตัวอักษร

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

สร้างฟังก์ชั่นfที่ยอมรับการโต้แย้งเดียวและส่งกลับจำนวนของการทำซ้ำ

JavaScript - 31 ตัวอักษร

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

สมมติว่าอินพุตอยู่ในตัวแปรnและสร้างตัวแปรcซึ่งมีจำนวนการวนซ้ำ (และจะส่งออกcไปยังคอนโซลเป็นคำสั่งสุดท้าย)

Perl 6, 40 ไบต์

วิธีฟังก์ชั่นแบบเรียกซ้ำตามValentin CLEMENTและdaniero : 40 ตัวอักษร

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

วิธีรายการที่ขี้เกียจ: 32 ตัวอักษร

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

> <>, 27 26 23 ไบต์

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

เช่นเดียวกับคำตอบอื่น ๆ > <> สิ่งนี้จะสร้างลำดับบนสแต็ก เมื่อลำดับถึง 2 ขนาดของสแต็กคือจำนวนขั้นตอนที่ใช้

ขอบคุณ @Hohmannfan ช่วยให้ประหยัดได้ 3 ไบต์ด้วยวิธีการคำนวณค่าถัดไปที่ชาญฉลาดมาก สูตรที่ใช้ในการคำนวณค่าถัดไปในลำดับคือ:

เศษส่วนจะแมปถึง 0.5 และจำนวนคี่เป็น 3 คูณด้วยnและเพิ่มn%2การคำนวณเสร็จสมบูรณ์ - ไม่จำเป็นต้องเลือกค่าถัดไปเลย!

แก้ไข 2:ต่อไปนี้เป็นรุ่นก่อน @ Hohmannfan:

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

เคล็ดลับที่นี่คือทั้งสอง3n+1และn/2ถูกคำนวณในแต่ละขั้นตอนในลำดับและหนึ่งที่จะลดลงจากลำดับที่เลือกหลังจากนั้น ซึ่งหมายความว่ารหัสไม่จำเป็นต้องแยกสาขาจนกว่าจะถึง 1 และการคำนวณลำดับสามารถมีชีวิตอยู่ในหนึ่งบรรทัดของรหัส

แก้ไข: Golfed off ตัวละครอื่นหลังจากตระหนักว่าจำนวนเต็มบวกเท่านั้นที่สามารถนำไปสู่ ​​1 คือ 2 เนื่องจากผลลัพธ์ของโปรแกรมไม่สำคัญสำหรับอินพุต <2 การสร้างลำดับสามารถสิ้นสุดได้เมื่อถึง 2 โดยเหลือขนาดสแต็ก เป็นจำนวนขั้นตอนที่แน่นอนที่จำเป็น

รุ่นก่อนหน้า:

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