neingeist/add-a-gram
Archived
1
0
Fork 0
Code Releases Activity

cleanup

Browse source
This commit is contained in:
neingeist 2004-10-07 02:39:02 +00:00
parent a8b7bf2499
commit 6d6fa3a5ff
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
add-a-gram.lisp
View file

@ -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)))))