refactor

2 files changed, 4 insertions, 20 deletions

diff --git a/advent-of-code/2023/02/1.rkt b/advent-of-code/2023/02/1.rkt
index 4382a66..ab1e4c2 100644
--- a/advent-of-code/2023/02/1.rkt
+++ b/advent-of-code/2023/02/1.rkt
@@ -1,13 +1,8 @@
 #lang racket
 
-(define fp (open-input-file "input"))
+(require "../lib/utils.rkt")
 
-(define (get-lines fp)
-  (let loop ((lines '()))
-    (define l (read-line fp))
-    (if (eof-object? l)
-      (reverse lines)
-      (loop (cons l lines)))))
+(define fp (open-input-file "input"))
 
 (define lines (get-lines fp))
 
@@ -51,12 +46,6 @@
         #f
         (possible? (cdr game))))))
 
-(define (enumerate lst)
-  (let loop ((i 1) (ret '()) (remain lst))
-    (if (null? remain)
-      (reverse ret)
-      (loop (+ 1 i) (cons (list (car remain) i) ret) (cdr remain)))))
-
 (apply + (map cadr
               (filter (lambda (game)
                         (possible? (car game)))
diff --git a/advent-of-code/2023/02/2.rkt b/advent-of-code/2023/02/2.rkt
index 8975a27..da45d56 100644
--- a/advent-of-code/2023/02/2.rkt
+++ b/advent-of-code/2023/02/2.rkt
@@ -1,13 +1,8 @@
 #lang racket
 
-(define fp (open-input-file "input"))
+(require "../lib/utils.rkt")
 
-(define (get-lines fp)
-  (let loop ((lines '()))
-    (define l (read-line fp))
-    (if (eof-object? l)
-      (reverse lines)
-      (loop (cons l lines)))))
+(define fp (open-input-file "input"))
 
 (define lines (get-lines fp))