Nest function by cojna

m@main=do x<-readLn;putStrLn.take 8.show$foldr(#)x"sscccscccssssscscc"+5e-7;m
's'#x=sin x
_#x=cos x

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page