From fd75e9dd97c8fb8672ba609fe4003a3865391c09 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Fri, 22 Mar 2024 23:05:39 +0100
Subject: More AOC

---
 samples/aoc/2023/02/solve.bruijn | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 samples/aoc/2023/02/solve.bruijn

(limited to 'samples/aoc/2023/02/solve.bruijn')

diff --git a/samples/aoc/2023/02/solve.bruijn b/samples/aoc/2023/02/solve.bruijn
new file mode 100644
index 0000000..2daed35
--- /dev/null
+++ b/samples/aoc/2023/02/solve.bruijn
@@ -0,0 +1,18 @@
+:import std/Combinator .
+:import std/String .
+:import std/Math .
+:import std/Char C
+
+valid? &[[\(C.eq? 0 'r' (1 >? (+12)) (C.eq? 0 'g' (1 >? (+13)) (1 >? (+14))))]]
+
+parse map (game → (map (sets → (map (cubes → (map (tail → cube)))) → concat → maxes)) → head)
+	game (split-list-by (C.eq? ':')) → tail
+	sets split-list-by (C.eq? ';')
+	cubes split-list-by (C.eq? ',')
+	cube (split-list-by (C.eq? ' ')) → &[[(string→number 1) : ^(^0)]]
+	maxes [(m 'r') : ((m 'g') : {}(m 'b'))]
+		m [max-by (compare ⋔ head) (filter [C.eq? (tail 0) 1] 1)]
+
+main lines → parse → enumerate → (φ cons part1 part2)
+	part1 (map &[[1 : (all? valid? 0)]]) → (filter tail) → (map (head → inc)) → sum
+	part2 (map &[(map head) → product]) → sum
-- 
cgit v1.2.3