From: Jack Kinsey <j.jameskinsey@gmail.com>
Date: Sun, 6 Dec 2020 07:31:36 +0000 (-0500)
Subject: Add day 06
X-Git-Url: http://git.jkinsey.net/?a=commitdiff_plain;h=fba914a08794a285f12fe1ae0da0f04ee46888ef;p=adventofcode2020.git

Add day 06
---

diff --git a/src/day06.lisp b/src/day06.lisp
new file mode 100644
index 0000000..e116865
--- /dev/null
+++ b/src/day06.lisp
@@ -0,0 +1,36 @@
+(asdf:load-system :adventofcode2020)
+(in-package #:adventofcode2020)
+(named-readtables:in-readtable fn-reader)
+
+(defun count-answers (join ans-list)
+  (->> ans-list
+    (mapcar λ(map 'list #'identity _))
+    (reduce λ(funcall join _0 _1 :test #'char=))
+    (length)))
+
+(day 06 input
+  (let ((answer-groups (-<>> (list-from input)
+                         (split-sequence "" <> :test #'string=)))
+        (disjunction (curry #'count-answers #'union))
+        (conjunction (curry #'count-answers #'intersection) ))
+    (part1 (->> answer-groups (mapcar disjunction) (reduce #'+)))
+    (part2 (->> answer-groups (mapcar conjunction) (reduce #'+)))))
+
+(def-suite day06)
+(in-suite day06)
+
+(test count-answers-disj
+  (is (equal
+        '(3 3 3 1 1)
+        (mapcar (curry #'count-answers #'union)  
+                '(("abc") ("a" "b" "c") ("ab" "ac") 
+                          ("a" "a" "a" "a") ("b"))))))
+
+(test count-answers-conj
+  (is (equal
+        '(3 0 1 1 1)
+        (mapcar (curry #'count-answers #'intersection)  
+                '(("abc") ("a" "b" "c") ("ab" "ac") 
+                          ("a" "a" "a" "a") ("b"))))))
+
+(run! 'day06)