src/2020/days/day-06.lisp @ ff7c8ed35992
2021/01 (and add uncommitted stuff from 2020)
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Wed, 01 Dec 2021 20:54:23 -0500 |
| parents | (none) |
| 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 --------------------------------------------------------------------