print "0."; $d = <>=~y/0//+1; printf "%0${'d'}d", $_ for 0..10**$d-3,10**$d-1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page