base one to ten by henkma

main=mapM print[mod(x+9)10%x|x<-[1..100]]
d%0=0
d%x=mod x(d+1)+0^d+10*d%div(x-0^d)(d+1)

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

download

return to the top page