procedure main() every b:=(n:=0to 99)%10+1&(s:=0)+:=(n+1)/b^(d:=0to n)%(b+1/b)*10^d|write(s) end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page