src/2020/days/day-06.lisp @ 861dab6dff4c default tip

Clean up last day
author Steve Losh <steve@stevelosh.com>
date Wed, 06 Dec 2023 08:56:28 -0500
parents ff7c8ed35992
children (none)
(advent:defpackage* :advent/2020/06)
(in-package :advent/2020/06)

(defun yes-counts (group)
  (let ((answers (mapcar (rcurry #'coerce 'list) group)))
    (cons (length (reduce #'union answers))
          (length (reduce #'intersection answers)))))

(define-problem (2020 6) (data read-chunks) (7110 3628)
  (let ((counts (mapcar #'yes-counts data)))
    (values (summation counts :key #'car)
            (summation counts :key #'cdr))))

#; Scratch --------------------------------------------------------------------