blob: 89b80759774725a395022ca4658694af602f1af0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#lang racket
(require advent-of-code
(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
(case type
[(start-of-packet) 4]
[(start-of-message) 14]))
(for/first ([chunk (in-list (sliding (->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)
|
