anchor.diff:               (sum word :key #'letter-number))
              (triangle-word-p (word)
                (trianglep (word-value word))))
  -    (count-if #'triangle-word-p (parse-strings-file "data/42-words.txt"))))
  +    (count-if #'triangle-word-p (parse-strings-file "data/042-words.txt"))))
   
   (defun problem-43 ()
     ;; The number, 1406357289, is a 0 to 9 pandigital number because it is made up
  
positive.code: (test p79 (is (= 73162890 (problem-79))))
  (test p92 (is (= 8581146 (problem-92))))
  (test p97 (is (= 8739992577 (problem-97))))
  (test p145 (is (= 608720 (problem-145))))
  (test p323 (is (= 6.3551758451d0 (problem-323))))
  (test p345 (is (= 13938 (problem-345))))
  
negative.code:   ;; hand there is a clear winner.
    ;;
    ;; How many hands does Player 1 win?
    (iterate (for line :in-file "data/054-poker.txt" :using #'read-line)
             (for cards = (mapcar #'euler.poker::parse-card
                                  (cl-strings:split line #\space)))
             (for p1 = (take 5 cards))
  