From b5ee7d1ca06cc89aebc3af5c6e340379e8b2fe5d Mon Sep 17 00:00:00 2001
From: 4903000 <4903000@chiru.no>
Date: Sun, 6 Dec 2020 10:39:55 +0000
Subject: [PATCH] Day 6: add timed solve-day function

---
 aoc20.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/aoc20.lisp b/aoc20.lisp
index e30fb7c..289e86f 100644
--- a/aoc20.lisp
+++ b/aoc20.lisp
@@ -231,3 +231,8 @@
   (length (mapcan (lambda (entry)
 		    (reduce #'intersection (map 'list (lambda (l) (coerce l 'list)) entry)))
 		  data)))
+
+(defun solve-6 (file)
+  (let ((data (read-6 file)))
+    (time (progn (print (solve-6-1 data))
+		 (print (solve-6-2 data))))))