simplified code

day05-hard/main.scm

@@ -461,27 +461,20 @@
   (compose (list
     ;; for list of map lines (within a single map set)
     (prepend '(0 4294967295 0))
-    (map (compose (list
+    (map create-map)
-      ;; for map line
+    (map (map string->number))
-      create-map
+    (map (map list->string))
-      (map (compose (list
+    (map (split (is #\space)))
-        ;; for number in map line
+    (map string->list)
-        string->number
-        list->string)))
-      (split (is #\space))
-      string->list
-    )))
     cdr)))
 
 (define parse-initial
   (compose (list
-    (map (compose (list
+    (map create-state-value-current)
-      create-state-value-current
+    (map create-range-from-input)
-      create-range-from-input)))
     (chunks 2)
-    (map (compose (list
+    (map string->number)
-      string->number
+    (map list->string)
-      list->string)))
     cdr
     (split (is #\space))
     string->list)))