reorg code

1 files changed, 16 insertions, 0 deletions

diff --git a/01/1.rkt b/01/1.rkt
new file mode 100644
index 0000000..82c109b
--- /dev/null
+++ b/01/1.rkt
@@ -0,0 +1,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 (λ (c)
+                           (string->number (list->string (list c))))
+                         number-list))
+  (+ (last number-list) (* 10 (car number-list))))
+
+(apply + (map extract-number lines))