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/2018/01/input        |  5 +++++
 samples/aoc/2018/01/solve.bruijn | 15 +++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 samples/aoc/2018/01/input
 create mode 100644 samples/aoc/2018/01/solve.bruijn

(limited to 'samples/aoc/2018')

diff --git a/samples/aoc/2018/01/input b/samples/aoc/2018/01/input
new file mode 100644
index 0000000..78cd296
--- /dev/null
+++ b/samples/aoc/2018/01/input
@@ -0,0 +1,5 @@
++7
++7
+-2
+-7
+-4
diff --git a/samples/aoc/2018/01/solve.bruijn b/samples/aoc/2018/01/solve.bruijn
new file mode 100644
index 0000000..cb47892
--- /dev/null
+++ b/samples/aoc/2018/01/solve.bruijn
@@ -0,0 +1,15 @@
+:import std/Combinator .
+:import std/String .
+:import std/Math .
+:import std/Set S
+
+part1 ∑‣ ⧗ (List FrequencyDiff) → Frequency
+
+part2 z [[[[rec]]]] S.empty (+0) ⧗ (List FrequencyDiff) → Frequency
+	rec (S.has? 1 2) case-end case-cont
+		case-cont 3 (S.add 1 2) (1 + ^0) ~0
+		case-end 1
+
+main [parts nums]
+	nums signed-number! <$> (init (lines 0))
+	parts [(part1 0) : (part2 (cycle 0))]
-- 
cgit v1.2.3