refactor advent of code 2023 day 02 from c to racket

1 files changed, 0 insertions, 22 deletions

diff --git a/advent-of-code/2023/01/part1.rkt b/advent-of-code/2023/01/part1.rkt
deleted file mode 100644
index 0c69be5..0000000
--- a/advent-of-code/2023/01/part1.rkt
+++ /dev/null
@@ -1,22 +0,0 @@
-#lang racket
-
-(define fp (open-input-file "input"))
-(define sum 0)
-
-(define (get-lines fp)
-  (let loop ((lines '()))
-    (define l (read-line fp))
-    (if (eof-object? l)
-      (reverse lines)
-      (loop (cons l lines)))))
-
-(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))