Lucky numbers by moriA

m#s=take(m-1)s++m#drop m s
s%1118=""
s%n=' ':show(s!!n)++s!!n#s%(n+1)
main=putStr$'1':[1,3..]%1

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

download

return to the top page