delete words by murky-satyr

{W:=stdin upTo:$
.S:=stdin upTo:0}do:[:q|T:=''.2to:(S indexOf:$
)do:[:x|-1to:150by:13 do:[:y|T:=T,{S at:x+y}].T:=T,'
'].S:=T copyReplacingAllRegex:W,'|',W reverse with:(W collect:[:c|$ ])].S display

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

download

return to the top page