diff --git a/main.rkt b/main.rkt index 01e26c3..b93463f 100644 --- a/main.rkt +++ b/main.rkt @@ -1,5 +1,7 @@ #lang racket +(require racket/port) + ; You try to ask why they can't just use a weather machine ("not powerful enough") ; and where they're even sending you ("the sky") and why your map looks mostly ; blank ("you sure ask a lot of questions") and hang on did you just say the sky @@ -31,10 +33,10 @@ ; Consider your entire calibration document. What is the sum of all of the ; calibration values? -(define input '("1abc2" - "pqr3stu8vwx" - "a1b2c3d4e5f" - "treb7uchet")) +; (define input '("1abc2" +; "pqr3stu8vwx" +; "a1b2c3d4e5f" +; "treb7uchet")) ; From a char list returns the first digit it finds as a char, or nil (define (get-first-digit list) @@ -65,8 +67,13 @@ (define char-list (map string->list input)) (define result (foldl + 0 (map list->digits char-list))) -(print result) +(define file-contents + (port->string (open-input-file "input-01.txt") #:close? #t)) + + + +; (print result)