zuckerberg/AoC-2022-Nix
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fomatting fix

Browse Source
This commit is contained in:
zuckerberg 2022-12-05 13:07:44 -07:00
parent 030af6ed8f
commit cd80733367
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
4/solution.nix
View File

@ -3,12 +3,13 @@ with import ../util.nix;
let
# read input
input = readFile ./input;
pairs = let
readRange = s: splitPair (a: b: [ (toInt a) (toInt b) ]) (splitString "-" s);
readPair = a: b: [ (readRange a) (readRange b) ];
in map
(line: splitPair readPair (splitString "," line))
(splitString "\n" input);
pairs =
let
readRange = s: splitPair (a: b: [ (toInt a) (toInt b) ]) (splitString "-" s);
readPair = a: b: [ (readRange a) (readRange b) ];
in map
(line: splitPair readPair (splitString "," line))
(splitString "\n" input);
# overlap functions
partialOverlap = a1: a2: b1: b2:
@ -18,7 +19,7 @@ let
# calc overlaps
hasOverlap = overlapFunc: a: b:
splitPair (splitPair overlapFunc a) b || splitPair (splitPair overlapFunc b) a;
splitPair (splitPair overlapFunc a) b || splitPair (splitPair overlapFunc b) a;
overlaps = overlapFunc: map boolToInt (map (splitPair (hasOverlap overlapFunc)) pairs);
in {
part1 = sum (overlaps completeOverlap);