aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--impl.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/impl.bqn b/impl.bqn
index d05ff710..bb15277c 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -378,7 +378,7 @@ _grade←{
l←≠𝕩
(↕l){
i←-d←𝕨 ⋄ j←ei←ej←0
- e←3 ⋄ c←⟨GT○(⊑⟜𝕩),0,1,2⟩
+ e←3 ⋄ c←⟨GT○(⊑⟜(m×⍟(≠⟜1)𝕩)),0,1,2⟩
N←{i↩d+𝕨⋄ej↩l⌊d+ei↩l⌊j↩d+𝕩⋄e↩j≥l⋄i R j}
R←{𝕨e◶c𝕩}◶{e+↩2×ei=i↩1+𝕨⋄𝕨}‿{e+↩ej=j↩1+𝕩⋄𝕩}‿N
{𝕩⋄i R j}¨⊸⊏𝕩