Six or more by koyama41

main=mapM print[n|n<-[9..5^6],(n,n)&9]
(q,r)&x=q+r<1||abs(r-x)>5&&divMod q 10&r

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

download

return to the top page