DEV Community

Discussion on: Daily Challenge #148 - Disemvowel Trolls

Collapse
 
kmruiz profile image
Kevin Mas Ruiz

Some unfancy Common Lisp:

(defun remove-vowels (text)
  (flet ((vowel-p (char) (find char "aeiouAEIOU" :test #'char=)))
    (remove-if #'vowel-p text)))