24 lines
586 B
Racket
24 lines
586 B
Racket
|
#lang curly-fn racket
|
||
|
|
|
||
|
|
(require "scripts/aoc.rkt")
|
||
|
|
|
||
|
|
;; solution for day 6
|
||
|
|
|
||
|
|
(define ((part marker-len) input)
|
||
|
|
(for*/first ([i (in-range marker-len (string-length input))]
|
||
|
|
[nxt (in-value (substring input (- i marker-len) i))]
|
||
|
|
#:when (= marker-len (set-count (list->set (string->list nxt)))))
|
||
|
|
i))
|
||
|
|
|
||
|
|
(define part1 (part 4))
|
||
|
|
(define part2 (part 14))
|
||
|
|
|
||
|
|
(define (parse fname)
|
||
|
|
(string-trim (file->string fname)))
|
||
|
|
|
||
|
|
(module+ main
|
||
|
|
(define input (parse "inputs/6"))
|
||
|
|
(answer 6 1 (time (part1 input)))
|
||
|
|
(answer 6 2 (time (part2 input)))
|
||
|
|
(displayln "meow"))
|