From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001 From: "H.J" Date: Wed, 9 Oct 2024 11:36:55 -0400 Subject: sorting by language --- racket/aoc2022/day-06/day-06.rkt | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 racket/aoc2022/day-06/day-06.rkt (limited to 'racket/aoc2022/day-06/day-06.rkt') diff --git a/racket/aoc2022/day-06/day-06.rkt b/racket/aoc2022/day-06/day-06.rkt new file mode 100644 index 0000000..1c167a6 --- /dev/null +++ b/racket/aoc2022/day-06/day-06.rkt @@ -0,0 +1,22 @@ +#lang racket + +(require advent-of-code + (only-in algorithms sliding)) + +(define buffer (fetch-aoc-input (find-session) 2022 6)) + +(define (find-marker data type) + (define n + (case type + [(start-of-packet) 4] + [(start-of-message) 14])) + (for/first ([chunk (in-list (sliding (string->list data) n))] + [i (in-naturals n)] + #:unless (check-duplicates chunk)) + i)) + +;; part 1 +(find-marker buffer 'start-of-packet) + +;; part 2 +(find-marker buffer 'start-of-message) -- cgit v1.2.3