simplified code

main
Inga 🏳‍🌈 11 months ago
parent a2475802d6
commit f13bc4bac1
  1. 25
      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)))

Loading…
Cancel
Save