Concentric Circles by henkma

l=[0..30]
main=mapM putStrLn[take(8+sum[1|x>99])$show$sqrt x+5e-7|x<-[1..901],or[x==y^2+z^2|y<-l,z<-l]]

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

download

return to the top page