2021-12-01 05:41:36 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
|
|
|
|
(require "../lib.rkt")
|
|
|
|
|
|
|
|
|
|
(define input (map string->number (problem-input 1)))
|
|
|
|
|
|
2021-12-01 05:54:11 +00:00
|
|
|
(define (deltas nth-rest)
|
2021-12-01 05:41:36 +00:00
|
|
|
(for/list ([depth-prev input]
|
2021-12-01 05:54:11 +00:00
|
|
|
[depth-next (nth-rest input)])
|
|
|
|
|
(- depth-next depth-prev)))
|
2021-12-01 05:41:36 +00:00
|
|
|
|
|
|
|
|
(define part1
|
2021-12-01 05:54:11 +00:00
|
|
|
(count positive? (deltas cdr)))
|
2021-12-01 05:41:36 +00:00
|
|
|
|
|
|
|
|
(define part2
|
2021-12-01 05:54:11 +00:00
|
|
|
(count positive? (deltas cdddr)))
|
2021-12-01 05:41:36 +00:00
|
|
|
|
|
|
|
|
(show-solution part1 part2)
|
