diff options
Diffstat (limited to 'advent-of-code/2023/01/1.rkt')
| -rw-r--r-- | advent-of-code/2023/01/1.rkt | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/advent-of-code/2023/01/1.rkt b/advent-of-code/2023/01/1.rkt deleted file mode 100644 index 8953e84..0000000 --- a/advent-of-code/2023/01/1.rkt +++ /dev/null @@ -1,16 +0,0 @@ -#lang racket - -(require "../../lib/utils.rkt") - -(define fp (open-input-file "input")) - -(define lines (get-lines fp)) - -(define (extract-number line) - (define number-list (filter char-numeric? (string->list line))) - (set! number-list (map (λ (c) - (string->number (list->string (list c)))) - number-list)) - (+ (last number-list) (* 10 (car number-list)))) - -(apply + (map extract-number lines)) |