Support multi-digit non-negative integers fully

2 files changed, 3 insertions, 1 deletions

diff --git a/c.bqn b/c.bqn
index 65e74179..0760decc 100755
--- a/c.bqn
+++ b/c.bqn
@@ -56,7 +56,7 @@ Parse←{
 }
 
 GenNum←{
-  n←⊑bD⊐𝕩
+  n←10⊥bD⊐𝕩
   n=0:8⥊0
   l←2(⌊⋆⁼)n
   (Hex"44")∾2⊥˘⌽8‿8(⊣⥊×´⊸↑)∾⟨⥊0,(11⥊2)⊤1023+l,(2⥊˜0⌈l)⊤n⟩
diff --git a/test/cases.bqn b/test/cases.bqn
index cd7774c8..60fda216 100644
--- a/test/cases.bqn
+++ b/test/cases.bqn
@@ -10,3 +10,5 @@
 -0.5 % b←3⋄⊢d←(b×b)-4×2×1⋄((-b)+√d)÷2×2
 6    % a←3,b←4,c←5⋄⊣s←(÷2)×a+b+c⋄√s×(s-a)×(s-b)×(s-c)
 3.1415 % t←2×5⋄3+(1+(4+(1+5÷t)÷t)÷t)÷t
+3.1415 % 3+(1+(4+(1+5÷10)÷10)÷10)÷10
+3    % √25-16