day 6

4 years ago · 90c8c7dfde
parent 4f58128ddc
commit 90c8c7dfde
2 changed files with 2180 additions and 0 deletions
--- a/2020/06.rkt
+++ b/2020/06.rkt
@ -0,0 +1,13 @@
+#lang br
+(require racket/file racket/set rackunit)
+
+(define (solve set-proc)
+  (for/sum ([group (string-split (file->string "06.rktd") #px"\n\n+")])
+    (set-count (apply set-proc (for/list ([person (string-split group "\n")])
+                                 (for/seteqv ([c person])
+                                   c))))))
+
+(check-equal? (solve set-union) 6549)
+
+(check-equal? (solve set-intersect) 3466)
+
--- a/2020/06.rktd
+++ b/2020/06.rktd