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

9
add-a-gram.lisp
View file

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