Remove vowels from a string: Difference between revisions

Content added Content deleted
Line 514: Line 514:


<lang lisp>(defun vowelp (c &key (vowels "aeiou"))
<lang lisp>(defun vowelp (c &key (vowels "aeiou"))
(and (characterp c) (typep (find c vowels :test #'char-equal) 'character)))
(and (characterp c) (characterp (find c vowels :test #'char-equal))))


(defun remove-vowels (s)
(defun remove-vowels (s)
Retrieved from "https://rosettacode.org/wiki/Remove_vowels_from_a_string"