|
|
|
@ -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))) |
|
|
|
|