Talk:ABC problem: Difference between revisions
Content added Content deleted
Line 132: | Line 132: | ||
<code> |
<code> |
||
(defun word-possible-p (word alphabet) |
(defun word-possible-p (word alphabet) |
||
(labels ((%usablep (b) |
(labels ((%usablep (b) (find (char-upcase (char word 0)) b))) |
||
(find (char-upcase (char word 0)) b))) |
|||
(or (zerop (length word)) |
(or (zerop (length word)) |
||
(iter |
(iter |