Anonymous user
Remove vowels from a string: Difference between revisions
→{{header|Common Lisp}}
Line 513:
=={{header|Common Lisp}}==
<lang Lisp>(defun vowelp (c &key (vowels "aeiou"))
(and (characterp c) (find c vowels :test #'char-equal)))
(defun remove-vowels (s)
(remove-if #'vowelp s))</lang>
=={{header|Cowgol}}==
| |||