diff options
Diffstat (limited to 'samples/aoc/2020')
| -rw-r--r-- | samples/aoc/2020/01/input | 6 | ||||
| -rw-r--r-- | samples/aoc/2020/01/solve.bruijn | 22 |
2 files changed, 28 insertions, 0 deletions
diff --git a/samples/aoc/2020/01/input b/samples/aoc/2020/01/input new file mode 100644 index 0000000..e3fb011 --- /dev/null +++ b/samples/aoc/2020/01/input @@ -0,0 +1,6 @@ +1721 +979 +366 +299 +675 +1456 diff --git a/samples/aoc/2020/01/solve.bruijn b/samples/aoc/2020/01/solve.bruijn new file mode 100644 index 0000000..39bfcbc --- /dev/null +++ b/samples/aoc/2020/01/solve.bruijn @@ -0,0 +1,22 @@ +# TODO: While this obviously isn't the most performant solution, it should still +# be a lot faster than it currently is. I think there's some problem with +# underlying strictness/laziness + +:import std/Combinator . +:import std/String . +:import std/Math . +:import std/Pair P + +part1 z [[rec]] + rec ((P.uncurry …+… ^0) =? (+2020)) case-done case-cont + case-done P.uncurry …⋅… ^0 + case-cont 1 ~0 + +part2 z [[rec]] + rec (∑(^0) =? (+2020)) case-done case-cont + case-done ∏(^0) + case-cont 1 ~0 + +main [parts nums] + nums number! <$> ~(<~>(lines 0)) + parts [(part1 (cross 0 0)) : (part2 (cross3 0 0 0))] |