diff options
Diffstat (limited to 'advent-of-code/2023/06/2.rkt')
| -rw-r--r-- | advent-of-code/2023/06/2.rkt | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/advent-of-code/2023/06/2.rkt b/advent-of-code/2023/06/2.rkt deleted file mode 100644 index 2d666ed..0000000 --- a/advent-of-code/2023/06/2.rkt +++ /dev/null @@ -1,29 +0,0 @@ -#lang racket - -(define in (open-input-file "input")) - -(define (read-num) - (define line (read-line in)) - (string->number - (apply - string-append - (string-split - (cadr (string-split (string-trim line) ":")))))) - -(define time (read-num)) -(define distance (read-num)) - -(define (calc 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)) - -(display (solve time distance)) -(newline) |
