.gitignore

@@ -1,3 +1,3 @@
-input
+inputs
 
 

main.rkt

@@ -4,8 +4,9 @@
 (require "src/day01.rkt")
 
 (define (run-all)
-  (printf "Running all solutions\n")
-  (printf (string-append "Day 1 part 1: " (advent-of-code-01-p1))))
+  (printf "Running all solutions")
+  (define result-01-p1 (advent-of-code-01-p1))
+  (printf (string-append "Day 1 part 1: " result-01-p1)))
 
 
 (define argv (current-command-line-arguments))

src/day01.rkt

@@ -41,18 +41,14 @@
 
 
 ; From a char list returns the first digit it finds as a char, or nil
-; char list -> char
 (define (get-first-digit list)
-    (if (empty? list)
-        null
-        (let ([current-char (first list)])
-          (if (char-numeric? current-char)
+  (if (= (length list) 0)
+      null
+      (let ([current-char (first list)])
+        (if (char-numeric? current-char)
             current-char
             (get-first-digit (rest list))))))
 
-
-; finds the last digit in the given list
-; char list -> char
 (define (get-last-digit list carry)
   (if (= (length list) 0)
       carry
@@ -63,28 +59,23 @@
                   carry)])
         (get-last-digit (rest list) next-char))))
 
-; Creates a new number from the first & last number found inside a char list
-; char list -> int
+; Creates a new number from the first & last number found inside a string
 (define (list->digits list)
     (let ([first-char (get-first-digit list)]
           [last-char (get-last-digit list -1)])
       (string->number (string first-char last-char))))
 
 
-
 (define (advent-of-code-01-p1)
     ; Read file
     (define file-contents
-        (port->string (open-input-file "input/01.txt") #:close? #t))
+        (port->string (open-input-file "input-01.txt") #:close? #t))
 
     ; Split file into list of strings
-    (define lines (string-split file-contents "\n"))
-    (define list-of-list-of-chars (map string->list lines))
-    (define list-of-digits (map list->digits list-of-list-of-chars))
-    (define sum (foldl + 0 list-of-digits))
+    (define input (string-split file-contents "\n"))
 
-    (number->string sum))
-
-(define (advent-of-code-01-p2)
-  0)
+    ; process
+    (define char-list (map string->list input))
+    (define result (foldl + 0 (map list->digits char-list)))
+    result)