Anonymous user
Talk:ABC problem: Difference between revisions
→Alternative Common Lisp version
Line 132:
<code>
(defun word-possible-p (word alphabet)
(labels ((%
(find (char-upcase (char word 0)) b)))
(or (zerop (length word))
(iter
(for candidate :in (remove-if-not #'%
(when (word-possible-p
(subseq word 1) (remove candidate alphabet :count 1))
| |||