diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 22:34:22 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-12-07 22:34:22 +0100 |
| commit | f4bb1b6ca10ad9c7c2479152ce99aa603d0eea02 (patch) | |
| tree | c4b13f2efbee77f05ee57dcf70bfb992234a0728 /day06.rkt | |
| parent | b8dca4302904f7356fd2b0c462e6965824ba582a (diff) | |
| download | adventofcode2022-f4bb1b6ca10ad9c7c2479152ce99aa603d0eea02.tar.gz adventofcode2022-f4bb1b6ca10ad9c7c2479152ce99aa603d0eea02.tar.xz adventofcode2022-f4bb1b6ca10ad9c7c2479152ce99aa603d0eea02.zip | |
day06
Diffstat (limited to 'day06.rkt')
| -rw-r--r-- | day06.rkt | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/day06.rkt b/day06.rkt new file mode 100644 index 0000000..b3df7c3 --- /dev/null +++ b/day06.rkt @@ -0,0 +1,11 @@ +#lang racket + +(define data (car (file->lines "day06"))) + +(for/list ([n '(4 14)]) + (for/or ([i (in-range 0 (- (string-length data) n))]) + (and (= n (length (remove-duplicates + (string->list (substring data i (+ i n)))))) + (+ i n)))) +; 1623 +; 3774 |