Cleanup code
This commit is contained in:
parent
224b88d839
commit
79244532fb
@ -4,9 +4,7 @@ let
|
|||||||
# read input
|
# read input
|
||||||
input = readFile ./input;
|
input = readFile ./input;
|
||||||
pairs = let
|
pairs = let
|
||||||
readRange = s:
|
readRange = s: split (a: b: [ (toInt a) (toInt b) ]) (splitString "-" s);
|
||||||
let l = splitString "-" s;
|
|
||||||
in [ (toInt (head l)) (toInt (last l)) ];
|
|
||||||
readPair = a: b: [ (readRange a) (readRange b) ];
|
readPair = a: b: [ (readRange a) (readRange b) ];
|
||||||
in map
|
in map
|
||||||
(line: split readPair (splitString "," line))
|
(line: split readPair (splitString "," line))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user