do a bunch of stuff to a number by lynn

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page