Return to Revisions

2 of 2

added 142 characters in body

edited Nov 5, 2018 at 13:04

edited Nov 5, 2018 at 13:04

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

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