base one to ten by clock

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