From 9ef10406c067d0a0532d609212a94519af402b87 Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Tue, 7 Mar 2023 00:19:48 +0100 Subject: Added a few advent of code solutions --- samples/aoc/2015/01/solve.bruijn | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 samples/aoc/2015/01/solve.bruijn (limited to 'samples/aoc/2015/01/solve.bruijn') 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