Day 02
This commit is contained in:
parent
d5e9ce2d39
commit
1f09c45ed8
|
@ -0,0 +1,49 @@
|
|||
{ pkgs, lib, ... }:
|
||||
|
||||
with lib;
|
||||
|
||||
let
|
||||
guide = pipe (builtins.readFile ./input.txt) [
|
||||
(splitString "\n")
|
||||
(map (splitString " "))
|
||||
(map (xs: { they = elemAt xs 0; you = elemAt xs 1; }))
|
||||
];
|
||||
|
||||
inherentValue = x: { A = 1; B = 2; C = 3; }.${x};
|
||||
comparativeValue = { they, you }: if they == you then 3 else
|
||||
if (they == "A" && you == "B")
|
||||
|| (they == "B" && you == "C")
|
||||
|| (they == "C" && you == "A") then 6 else
|
||||
0;
|
||||
score = match: comparativeValue match + inherentValue match.you;
|
||||
|
||||
equalizeValueType = x: { X = "A"; Y = "B"; Z = "C"; }.${x};
|
||||
|
||||
answer1 = pipe guide [
|
||||
(map (match@{ you, ... }: match // { you = equalizeValueType you; }))
|
||||
(map score)
|
||||
(foldr add 0)
|
||||
toString
|
||||
];
|
||||
|
||||
inherentValue2 = { they, you }: {
|
||||
X = { A = 3; B = 1; C = 2; };
|
||||
Y = { A = 1; B = 2; C = 3; };
|
||||
Z = { A = 2; B = 3; C = 1; };
|
||||
}.${you}.${they};
|
||||
comparativeValue2 = x: { X = 0; Y = 3; Z = 6; }.${x};
|
||||
score2 = match: comparativeValue2 match.you + inherentValue2 match;
|
||||
|
||||
answer2 = pipe guide [
|
||||
(map score2)
|
||||
(foldr add 0)
|
||||
toString
|
||||
];
|
||||
|
||||
in pkgs.writeText "answers" ''
|
||||
Task1:
|
||||
${answer1}
|
||||
|
||||
Task2:
|
||||
${answer2}
|
||||
''
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue