haskal
/
aoc2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

thanks tali 2

This commit is contained in:
xenia 2023-12-06 02:25:08 -05:00
parent 0dc8f77ac8
commit 72cfa6bb6c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6.rkt
View File

@ -7,7 +7,7 @@
(define (do-race time dist) (define (do-race time dist)
(match-define (list lower upper) (match-define (list lower upper)
(quadratic-solutions 1 (- time) dist)) (quadratic-solutions 1 (- time) dist))
(inexact->exact (- (ceiling upper) (add1 (floor lower))))) (inexact->exact (- (ceiling upper) (floor lower) 1)))
(define (part1 input) (define (part1 input)
(for/product ([time (in-list (first input))] (for/product ([time (in-list (first input))]