Anadromes: Difference between revisions

Content added Content deleted
imported>Rowsety Moid
No edit summary
imported>Rowsety Moid
m (Simplified the Common Lisp code)
Line 409: Line 409:
(let ((rev (reverse word)))
(let ((rev (reverse word)))
(and (string-lessp word rev)
(and (string-lessp word rev)
(gethash rev dict)
(gethash rev dict))))
(not (string-equal word rev)))))
words))))
words))))