: a >number 0 -rot 1. d+ ; 0. stdin slurp-fid a a a * * d+ swap rot 0 [do] dup 0 .r cr 2dup * 100 / + [loop]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page