Remove vowels from a string: Difference between revisions

(Add BCPL)
Line 1,166:
ans = Th qck brwn fx jmps vr th lzy dg
</pre>
 
=={{header|Nim}}==
<lang Nim>import strutils, sugar
 
const Vowels = {'a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'}
 
proc removeVowels(str: var string; vowels: set[char]) =
## Remove vowels from string "str".
var start = 0
while true:
let pos = str.find(vowels, start)
if pos < 0: break
str.delete(pos, pos)
start = pos
 
const TestString = "The quick brown fox jumps over the lazy dog"
echo TestString
echo TestString.dup(removeVowels(Vowels))</lang>
 
{{out}}
<pre>The quick brown fox jumps over the lazy dog
Th qck brwn fx jmps vr th lzy dg</pre>
 
=={{header|Perl}}==
Anonymous user