c 1=0 c n=1+c(cycle[div n 2,3*n+1]!!n) m@main=do n<-c<$>readLn;print$until(>n)(*2)1-n-1;m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page