(%stdin)(r)file 12 string readline pop 2{(:)search pop cvi 2 index}repeat cvi 100 add exch 4 index{dup = 1 index mul 100 idiv}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page