blob: 4f1401d0dab92a96e2f53ba3328f77c25f446ebd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
#lang racket
(define LINES (map string->number (file->lines "input")))
(define (solve offset)
(for/sum ([x (in-list LINES)]
[y (in-list (drop LINES offset))]
#:when (< x y))
1))
(solve 1)
(solve 3)
|
