adventofcode-2021/01-solution-01.rkt

9 lines
266 B
Racket

#lang racket
(define strings (file->lines "01-input-01.txt"))
(define nums (map string->number strings))
(define num-larger 0)
(for ([first nums]
[second (cdr nums)])
(when (< first second)
(set! num-larger (add1 num-larger))))
(print num-larger)