Strip a set of characters from a string: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
(Added PicoLisp) |
||
Line 33: | Line 33: | ||
<pre># stripchars "She was a soul stripper. She took my heart!" "aei" ;; |
<pre># stripchars "She was a soul stripper. She took my heart!" "aei" ;; |
||
- : string = "Sh ws soul strppr. Sh took my hrt!"</pre> |
- : string = "Sh ws soul strppr. Sh took my hrt!"</pre> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de trimLeft (Str) |
|||
(pack (flip (trim (flip (chop Str))))) ) |
|||
(de trimRight (Str) |
|||
(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}}== |
=={{header|PureBasic}}== |