Strip a set of characters from a string: Difference between revisions
Content deleted Content added
easylang |
|||
Line 1,220: | Line 1,220: | ||
{{out}} |
{{out}} |
||
<pre>Sh ws soul strppr. Sh took my hrt!</pre> |
<pre>Sh ws soul strppr. Sh took my hrt!</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight lang=easylang> |
|||
func$ strip s$ del$ . |
|||
del$[] = strchars del$ |
|||
i = 1 |
|||
repeat |
|||
c$ = substr s$ i 1 |
|||
until c$ = "" |
|||
for d$ in del$[] |
|||
if c$ = d$ |
|||
c$ = "" |
|||
. |
|||
. |
|||
r$ &= c$ |
|||
i += 1 |
|||
. |
|||
return r$ |
|||
. |
|||
print strip "She was a soul stripper. She took my heart!" "aei" |
|||
</syntaxhighlight> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |