: a { s n } 2 -1 do n 0 do s i + c@ s c@ over 2dup > -rot < - j = if emit 0 then drop loop loop ; stdin slurp-fid a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page