Day 6: add timed solve-day function

4 years ago · b5ee7d1ca0
parent c7e72e49e0
commit b5ee7d1ca0
1 changed files with 5 additions and 0 deletions
--- 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))))))