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

Content added Content deleted
(Added PicoLisp)
(Oops, was wrong task)
Line 35:
 
=={{header|PicoLisp}}==
<lang PicoLisp>(de trimLeftstrDiff (StrStr1 Str2)
(pack (flipdiff (trimchop (flipStr1) (chop Str))Str2))) )</lang>
Output:
 
<pre>: (strDiff "She was a soul stripper. She took my heart!" "aei")
(de trimRight (Str)
-> "Sh ws soul strppr. Sh took my hrt!"</pre>
(pack (trim (chop Str))) )
 
(de trimBoth (Str)
(pack (clip (chop Str))) )</lang>
Test:
<pre>: (trimLeft " ^G ^I trimmed left ^L ")
-> "trimmed left ^L "
 
: (trimRight " ^G ^I trimmed right ^L ")
-> " ^G ^I trimmed right"
 
: (trimBoth " ^G ^I trimmed both ^L ")
-> "trimmed both"</pre>
 
=={{header|PureBasic}}==
Retrieved from "https://rosettacode.org/wiki/Strip_a_set_of_characters_from_a_string"