day4.el

(defun aoc-day3-1 (input)
  (let ((num-correct-passphrases 0))
    (dolist (passphrase input)
      (let ((words (split-string passphrase " ")))
        (when (= (length words)
                 (length (delete-dups words)))
          (incf num-correct-passphrases))))
    num-correct-passphrases))