Concentric Circles by Hendrik

import Text.Printf
r=[0..30::Double]
main=mapM(printf"%.6f\n".sqrt)[x|x<-[1..901],elem x[i^2+j^2|i<-r,j<-r]]

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

download

return to the top page