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)
return ns
end</lang>
|