diff options
Diffstat (limited to 'samples/aoc/2015/01/solve.bruijn')
| -rw-r--r-- | samples/aoc/2015/01/solve.bruijn | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/samples/aoc/2015/01/solve.bruijn b/samples/aoc/2015/01/solve.bruijn new file mode 100644 index 0000000..da7c87d --- /dev/null +++ b/samples/aoc/2015/01/solve.bruijn @@ -0,0 +1,10 @@ +:import std/List . +:import std/Number . +:import std/Char C + +walk scanl floor (+0) + floor [[(C.eq? 0 '(') ++1 --1]] + +main [parts (walk instructions)] + instructions init 0 + parts [(last 0) : (find-index <?‣ 0)] |