DozzFizzBuzz by henkma

l=[2..100]
main=putStr$'1':do x<-l;'\n':do(0,a,b)<-zip3[mod x n|n<-l,mod(2^n-2)n<1](l>>"DFBMPQ")$l>>"oiuea";a:b:"zz"

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

download

return to the top page