diff options
Diffstat (limited to 'racket/aoc2022/day-06/day-06.rkt')
-rw-r--r-- | racket/aoc2022/day-06/day-06.rkt | 22 |
1 files changed, 22 insertions, 0 deletions
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) |