for n=0,99 do s=""b=n%10+1 for d=0,n do x=(n+1)/b^d s=x%b-x%1 ..s end print(b<2 and("1"):rep(n+1)or 0+s)end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page