stable partition by 51b

: a 2 -1 do dup 0 do over dup i + c@ swap c@ over 2dup > -rot < - j = if emit 0
then drop loop loop ; pad dup 300 stdin read-file + a

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

download

return to the top page