From f5cd4dfa7d3bcdfcc18312d2ca55a476dca956b5 Mon Sep 17 00:00:00 2001 From: Hunky Jimpjorps Date: Tue, 6 Dec 2022 12:59:21 -0500 Subject: day 6 cleanup --- 2022/day-06/day-06.rkt | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to '2022/day-06/day-06.rkt') diff --git a/2022/day-06/day-06.rkt b/2022/day-06/day-06.rkt index 4eb8323..89b8075 100644 --- a/2022/day-06/day-06.rkt +++ b/2022/day-06/day-06.rkt @@ -1,20 +1,19 @@ #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 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])) + (case 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))) + #:unless (check-duplicates chunk)) i)) ;; part 1 -- cgit v1.2.3