From 0a64553fb3f97021eea303fc9ba8b26d67db709c Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 26 Oct 2024 21:36:34 +0200
Subject: Synced AOC checks

---
 samples/aoc/2018/01/output.check | 2 +-
 samples/aoc/2018/01/solve.bruijn | 7 +++----
 2 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'samples/aoc/2018')

diff --git a/samples/aoc/2018/01/output.check b/samples/aoc/2018/01/output.check
index ede73be..d1c48e3 100644
--- a/samples/aoc/2018/01/output.check
+++ b/samples/aoc/2018/01/output.check
@@ -1 +1 @@
-?> <1t : [0]>
+?> 1/15 (approx. 0.06666667)
diff --git a/samples/aoc/2018/01/solve.bruijn b/samples/aoc/2018/01/solve.bruijn
index 0fd0448..3d26a2e 100644
--- a/samples/aoc/2018/01/solve.bruijn
+++ b/samples/aoc/2018/01/solve.bruijn
@@ -5,10 +5,9 @@
 
 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
+part2 z [[[[rec]]]] S.empty (+0)
+	rec S.has? 1 2 1 go
+		go 3 (S.add 1 2) (1 + ^0) ~0
 
 main [parts nums]
 	nums string→signed-number <$> (init (lines 0))
-- 
cgit v1.2.3