advent-of-code/2023/01/1.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#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 (lambda (c)
                           (string->number (list->string (list c))))
                         number-list))
  (+ (last number-list) (* 10 (car number-list))))

(apply + (map extract-number lines))