From 7bfc78b122ad9cbb65eed16f7de4d4021547c2a8 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 23 Mar 2024 19:18:16 +0100
Subject: Some Project Euler solutions

---
 std/Number.bruijn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'std/Number.bruijn')

diff --git a/std/Number.bruijn b/std/Number.bruijn
index b2f3631..25a1f6c 100644
--- a/std/Number.bruijn
+++ b/std/Number.bruijn
@@ -9,9 +9,9 @@
 # the following functions are only here because of recursive imports of list/ternary
 
 # converts number to list of its digits
-number→list [=?0 {}(+0) (z [[rec]] 0)] ⧗ Number → (List Number)
+number→list [=?0 {}(+0) <~>(z [[[rec]]] empty 0)] ⧗ Number → (List Number)
 	rec =?0 case-end case-rec
-		case-rec (1 (0 / (+10))) ; (0 % (+10))
+		case-rec &[[4 (0 : 3) 1]] (quot-rem 0 (+10))
 		case-end empty
 
 :test (number→list (+0)) ({}(+0))
-- 
cgit v1.2.3