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
-      ;; for map line
-      create-map
-      (map (compose (list
-        ;; for number in map line
-        string->number
-        list->string)))
-      (split (is #\space))
-      string->list
-    )))
+    (map create-map)
+    (map (map string->number))
+    (map (map list->string))
+    (map (split (is #\space)))
+    (map string->list)
     cdr)))
 
 (define parse-initial
   (compose (list
-    (map (compose (list
-      create-state-value-current
-      create-range-from-input)))
+    (map create-state-value-current)
+    (map create-range-from-input)
     (chunks 2)
-    (map (compose (list
-      string->number
-      list->string)))
+    (map string->number)
+    (map list->string)
     cdr
     (split (is #\space))
     string->list)))