From f8398804d351667a7b887b89f6f70c7d5c407d22 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Mon, 25 Mar 2024 16:21:54 +0100
Subject: More samples and definitions

---
 samples/euler/009.bruijn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'samples/euler/009.bruijn')

diff --git a/samples/euler/009.bruijn b/samples/euler/009.bruijn
index be21d9e..c789719 100644
--- a/samples/euler/009.bruijn
+++ b/samples/euler/009.bruijn
@@ -12,6 +12,6 @@ solve [head <#> lst] → head → tail
 		a 1 - 0
 		b (+2) ⋅ 3 ⋅ 2
 		c 1 + 0
-	lst concat-map [map [check] ({ (+1) → --0 })] ({ (+2) → (sqrt 0) })
+	lst [[check] <$> ({ (+1) → --0 })] <++> ({ (+2) → (sqrt 0) })
 
 main [solve (+1000)]
-- 
cgit v1.2.3