Return to Answer

added 142 characters in body

edited Nov 5, 2018 at 13:04

edited Nov 5, 2018 at 13:04

Haskell, 40(削除) 40 (削除ここまで) 39 bytes

f 0=[0]0=[]
f n=n:f(cycle[3*n+1,div n 2]!!n)

Now without the final 0.

f 0=[0]
f n=n:f(cycle[3*n+1,div n 2]!!n)

f 0=[]
f n=n:f(cycle[3*n+1,div n 2]!!n)

Now without the final 0.

answered Nov 4, 2018 at 23:43

answered Nov 4, 2018 at 23:43

f 0=[0]
f n=n:f(cycle[3*n+1,div n 2]!!n)