2021/src/01.rkt

#lang racket

(require "../lib.rkt")

(define input (map string->number (problem-input 1)))

(define (deltas nth-rest)
  (for/list ([depth-prev input]
             [depth-next (nth-rest input)])
    (- depth-next depth-prev)))

(define part1
  (count positive? (deltas cdr)))

(define part2
  (count positive? (deltas cdddr)))

(show-solution part1 part2)
Day 01. 2021-12-01 05:41:36 +00:00			`#lang racket`

			`(require "../lib.rkt")`

			`(define input (map string->number (problem-input 1)))`

Day 01: hoo hoo hee hee I refactor da code 2021-12-01 05:54:11 +00:00			`(define (deltas nth-rest)`
Day 01. 2021-12-01 05:41:36 +00:00			`(for/list ([depth-prev input]`
Day 01: hoo hoo hee hee I refactor da code 2021-12-01 05:54:11 +00:00			`[depth-next (nth-rest input)])`
			`(- depth-next depth-prev)))`
Day 01. 2021-12-01 05:41:36 +00:00
			`(define part1`
Day 01: hoo hoo hee hee I refactor da code 2021-12-01 05:54:11 +00:00			`(count positive? (deltas cdr)))`
Day 01. 2021-12-01 05:41:36 +00:00
			`(define part2`
Day 01: hoo hoo hee hee I refactor da code 2021-12-01 05:54:11 +00:00			`(count positive? (deltas cdddr)))`
Day 01. 2021-12-01 05:41:36 +00:00
Day 04: Use entire file instead of splitting input beforehand. 2021-12-04 08:57:22 +00:00			`(show-solution part1 part2)`