numwarp by Mark Byers (no bin)

(]){def}def([){(K{>}]3_?W2)(%stdin)(r)file/-{( )3 copy]2 mod index =only]2 idiv}]read{10/*/]mod/@{7([){/\ -}]1 count{0[[]}for]}]get[/+{(/)-}@ exch +[exch * =/*{2[xor[+/}@/][+[/ =}if}][*

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

download

return to the top page