a-hooks.lisp

(defun a-hooks ()
  (let* ((sevens (make-hash-table :test 'equal))
         (eights (with-open-file (stream "/home/john/scrabble/twl.txt")
                   (loop 
                      for word = (read-line stream nil) while word
                      for length = (length word)
                      when (= 7 length) 
                      do (setf (gethash word sevens) t)
                      when (and (= 8 length) 
                                (char= #\A (elt word 0)))
                      collect word))))
    (dolist (eight eights)
      (when (gethash (subseq eight 1) sevens)
        (format t "~a~%" eight)))))