From dee026d9be9756f9b19e278724543b51a69dd048 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Tue, 6 Dec 2022 00:48:17 -0500 Subject: day 6 complete --- 2022/day-06/day-06.rkt | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 2022/day-06/day-06.rkt (limited to '2022/day-06/day-06.rkt') diff --git a/2022/day-06/day-06.rkt b/2022/day-06/day-06.rkt new file mode 100644 index 0000000..4eb8323 --- /dev/null +++ b/2022/day-06/day-06.rkt @@ -0,0 +1,24 @@ +#lang racket + +(require advent-of-code + threading + (only-in relation ->list ->set) + (only-in algorithms sliding)) + +(define buffer (~> (fetch-aoc-input (find-session) 2022 6))) + +(define (find-marker data type) + (define n + (match type + ['start-of-packet 4] + ['start-of-message 14])) + (for/first ([chunk (in-list (sliding (->list data) n))] + [i (in-naturals n)] + #:when (= n (~> chunk remove-duplicates length))) + i)) + +;; part 1 +(find-marker buffer 'start-of-packet) + +;; part 2 +(find-marker buffer 'start-of-message) -- cgit v1.2.3