neingeist
/
add-a-gram
Archived
1
0
Fork 0
master
neingeist 20 years ago
parent a8b7bf2499
commit 6d6fa3a5ff

@ -42,11 +42,10 @@
foo))
(defun sort-word (word)
(concatenate 'string (sort (coerce word 'list) #'char<)))
(sort (copy-seq word) #'char<))
(defun show-result (sorted-word)
(cond ((= (length sorted-word) 3)
(format t "~A~%" (gethash sorted-word *wordlist*)) )
(t
(format t "~A~%" (gethash sorted-word *wordlist*))
(show-result (add-a-gram-p sorted-word)))))
(unless (= (length sorted-word) 3)
(show-result (add-a-gram-p sorted-word))))