From 9c71729997443b38d7dc92b772afeab25af3edce Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 1 May 2021 13:09:43 -0400 Subject: =?UTF-8?q?Fix=20simple-array=20test=20for=20dyadic=20=E2=8D=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/r1.bqn | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/r1.bqn b/src/r1.bqn index 30c4e410..f31c03c7 100644 --- a/src/r1.bqn +++ b/src/r1.bqn @@ -116,7 +116,7 @@ _grade ← { gt ← 𝕗 cmps ← {𝕏˜}⌜⍟𝕗⟨Cmp,Cmp0,Cmp≤0˙,≤⟩ _getC_ ← { 𝕨 𝕘{(𝕨 𝕏 _getCellCmp 𝕗)≤0˙}⍟(𝕩≤1) 𝔽 𝕩⊑cmps } - AllNum ← 0=1+´(1=Type)⌜ + IsSimple ← 1×´(0