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

=={{header|SETL}}==

<syntaxhighlight lang="setl">program strip_chars;

print(strip("She was a soul stripper. She took my heart!", "aei"));

proc strip(s, chs);

return +/[c : c in s | not c in chs];

end proc;

end program;</syntaxhighlight>

{{out}}

<pre>Sh ws soul strppr. Sh took my hrt!</pre>