Strip a set of characters from a string: Difference between revisions

Content added Content deleted
No edit summary
Line 14:
procedure stripChars(s,cs)
ns := ""
s ? while ns ||:= 2(not pos(0), tab(upto(cs)|0),) do tab(many(cs)|0))
return ns
end</lang>