196 algorithm by 51b

: a
196 1 do
i 0 0. begin
d+ 2dup 0. begin
10 1 m*/ 2over 10 fm/mod 0 * d+ 2swap 1 10 m*/ 2tuck d0= until
d+ 2over 2over d= until
0 d.r cr loop
; a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page