Strip a set of characters from a string: Difference between revisions
Content added Content deleted
(Added PicoLisp) |
(Oops, was wrong task) |
||
| Line 35: | Line 35: | ||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||
<lang PicoLisp>(de |
<lang PicoLisp>(de strDiff (Str1 Str2) |
||
(pack ( |
(pack (diff (chop Str1) (chop 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}}== |
=={{header|PureBasic}}== |
||