Concentric Circles by deadfrog

import Data.List
import Text.Printf
main=mapM(printf"%.6f\n")$take 300$nub$sort[sqrt$x*x+y*y::Double|x<-[1..30],y<-[0..x]]

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

download

return to the top page