Cleanup code

This commit is contained in:
zuckerberg 2022-12-04 00:10:47 -07:00
parent 224b88d839
commit 79244532fb

View File

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