9 lines
314 B
Text
9 lines
314 B
Text
(defun contains-each (needles haystack)
|
|
(if (endp needles)
|
|
t
|
|
(and (member (first needles) haystack)
|
|
(contains-each (rest needles) haystack))))
|
|
|
|
(defun pangramp (str)
|
|
(contains-each (coerce "abcdefghijklmnopqrstuvwxyz" 'list)
|
|
(coerce (string-downcase str) 'list)))
|