From 04e388e64477894626795bd674fcde934669bcf4 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 1 Dec 2024 23:51:05 +0100
Subject: ate eta

---
 2024/01/solve.bruijn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/2024/01/solve.bruijn b/2024/01/solve.bruijn
index 2075668..463593f 100644
--- a/2024/01/solve.bruijn
+++ b/2024/01/solve.bruijn
@@ -17,7 +17,7 @@ transpose y [[rec]]
 :test (transpose [0 [0 (+1) [0 (+2) [[0]]]] [0 [0 (+3) [0 (+4) [[0]]]] [[0]]]]) ([0 [0 (+1) [0 (+3) [[0]]]] [0 [0 (+2) [0 (+4) [[0]]]] [[0]]]])
 
 part1 map go
-	go &[[[0 (S.sort-asc 2) (S.sort-asc S._1)]]] → &[[S.zip-with (N.abs ∘∘ N.sub) 1 0]] → N.sum
+	go &[[[0 (S.sort-asc 2) (S.sort-asc S._1)]]] → &(S.zip-with (N.abs ∘∘ N.sub)) → N.sum
 
 part2 [0]
 
-- 
cgit v1.2.3