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/input | 1 +
samples/aoc/2015/01/solve.bruijn | 10 ++++++++++
2 files changed, 11 insertions(+)
create mode 100644 samples/aoc/2015/01/input
create mode 100644 samples/aoc/2015/01/solve.bruijn
(limited to 'samples/aoc/2015')
diff --git a/samples/aoc/2015/01/input b/samples/aoc/2015/01/input
new file mode 100644
index 0000000..4b58722
--- /dev/null
+++ b/samples/aoc/2015/01/input
@@ -0,0 +1 @@
+()())
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)]
--
cgit v1.2.3