aboutsummaryrefslogtreecommitdiff
path: root/aoc2020/day-06/day-06.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'aoc2020/day-06/day-06.rkt')
-rw-r--r--aoc2020/day-06/day-06.rkt22
1 files changed, 0 insertions, 22 deletions
diff --git a/aoc2020/day-06/day-06.rkt b/aoc2020/day-06/day-06.rkt
deleted file mode 100644
index b0e2af9..0000000
--- a/aoc2020/day-06/day-06.rkt
+++ /dev/null
@@ -1,22 +0,0 @@
-#lang racket
-(require "../../jj-aoc.rkt"
- threading)
-
-(define responses (~> (open-day 6 2020) (port->string) (string-split "\n\n")))
-
-;; part 1
-(define (response-count-total rs)
- (for/sum ([r (in-list rs)]) (~> r (string-replace _ "\n" "") string->list list->set set-count)))
-
-(response-count-total responses)
-
-;; part 2
-(define (response-consensus-total rs)
- (for/sum ([r (in-list rs)])
- (~> r
- (string-split _ "\n")
- (map (λ~> string->list list->set) _)
- (apply set-intersect _)
- set-count)))
-
-(response-consensus-total responses) \ No newline at end of file