diff options
Diffstat (limited to 'advent-of-code/2023/06/1.rkt')
| -rw-r--r-- | advent-of-code/2023/06/1.rkt | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/advent-of-code/2023/06/1.rkt b/advent-of-code/2023/06/1.rkt index ea0d013..5496476 100644 --- a/advent-of-code/2023/06/1.rkt +++ b/advent-of-code/2023/06/1.rkt @@ -3,11 +3,11 @@ (define in (open-input-file "input")) (define (read-num-list) - (define line (read-line in)) - (map - string->number - (string-split - (cadr (string-split (string-trim line) ":"))))) + (define line (read-line in)) + (map + string->number + (string-split + (cadr (string-split (string-trim line) ":"))))) (define times (read-num-list)) (define distances (read-num-list)) @@ -15,18 +15,18 @@ (define games (map cons times distances)) (define (calc time hold-time) - (* hold-time (- time hold-time))) + (* hold-time (- time hold-time))) (define (solve time distance) - (define (loop counter hold-time) - (if (> hold-time time) - counter - (if (> (calc time hold-time) distance) - (loop (+ 1 counter) (+ 1 hold-time)) - (loop counter (+ 1 hold-time))))) - (loop 0 0)) + (define (loop counter hold-time) + (if (> hold-time time) + counter + (if (> (calc time hold-time) distance) + (loop (+ 1 counter) (+ 1 hold-time)) + (loop counter (+ 1 hold-time))))) + (loop 0 0)) -(display (apply * (map - (lambda (x) (solve (car x) (cdr x))) - games))) +(display (apply * (map + (λ (x) (solve (car x) (cdr x))) + games))) (newline) |