cleanup
This commit is contained in:
parent
a8b7bf2499
commit
6d6fa3a5ff
1 changed files with 6 additions and 7 deletions
|
@ -42,11 +42,10 @@
|
||||||
foo))
|
foo))
|
||||||
|
|
||||||
(defun sort-word (word)
|
(defun sort-word (word)
|
||||||
(concatenate 'string (sort (coerce word 'list) #'char<)))
|
(sort (copy-seq word) #'char<))
|
||||||
|
|
||||||
(defun show-result (sorted-word)
|
(defun show-result (sorted-word)
|
||||||
(cond ((= (length sorted-word) 3)
|
(format t "~A~%" (gethash sorted-word *wordlist*))
|
||||||
(format t "~A~%" (gethash sorted-word *wordlist*)) )
|
(unless (= (length sorted-word) 3)
|
||||||
(t
|
(show-result (add-a-gram-p sorted-word))))
|
||||||
(format t "~A~%" (gethash sorted-word *wordlist*))
|
|
||||||
(show-result (add-a-gram-p sorted-word)))))
|
|
||||||
|
|
Reference in a new issue