src/2018/day-02.lisp @ d5468dc3769d

Start day 15
author Steve Losh <steve@stevelosh.com>
date Sat, 02 Feb 2019 14:41:20 -0500
parents a19c9e1fd077
children 5b5c61ad8d2b
(defpackage :advent/2018/02 #.cl-user::*advent-use*)
(in-package :advent/2018/02)


(define-problem (2018 2) (data read-lines)
  (values
    (let* ((freqs (mapcar #'frequencies data))
           (counts (mapcar #'hash-table-values freqs)))
      (* (count 2 counts :test #'member)
         (count 3 counts :test #'member)))
    ;; just brute force it
    (multiple-value-bind (a b)
        (iterate
          (for (a . remaining) :on data)
          (for b = (find 1 remaining :key (curry #'hamming-distance a)))
          (when b
            (return (values a b))))
      (let ((i (mismatch a b)))
        (str:concat (subseq a 0 i)
                    (subseq a (1+ i)))))))

(1am:test test-2018/02
  (multiple-value-bind (part1 part2) (run)
    (1am:is (= 8296 part1))
    (1am:is (string= "pazvmqbftrbeosiecxlghkwud" part2))))