From 7d24a3eb4fb42d44dcd3e0c1812125a417ee3f48 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Mon, 5 Apr 2021 20:14:36 -0400 Subject: =?UTF-8?q?Prevent=20exponents=20like=201e=C2=AF=E2=88=9E=20and=20?= =?UTF-8?q?1e=C2=AF=CF=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/c.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 416ce6f1..919f35b5 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -88,7 +88,7 @@ ReadNums←{ "Negative sign in the middle of a number"_err_𝕨 n>»c "Portion of a number is empty"_err_𝕨 (1«s)∧n∨s "Ill-formed decimal or exponent use"_err_(s/𝕎) ¬(0⊸=∨»⊸<)s/𝕩 - "π and ∞ must occur alone"_err_𝕨 (p∨i)>1(»∧(p∧«e)∨«)z∨n + "π and ∞ must occur alone"_err_𝕨 (p∨i)>1(»∧(p∧«e)∨«)z∨n>»e f←(17≥¬(⊢-T)+`)⊸∧(«≤(d<𝕩≠⊑bD)>○I1T¬)⊸∧m # No leading 0s; max 17 digits l←(¯1∾π‿1∾˜↕10)⊏˜(¬d)/f×𝕩-1-˜⊑bD # Digit lookup, with ∞ as 1 to avoid ∞×0 v←(>⟜«0≤l)/0(0⊸≤××⟜10⊸+)`l # Numeric values—mantissas and exponents -- cgit v1.2.3