From 746bd0b2c60ede32d600533fa64085ac1ba247b5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 4 Aug 2020 20:52:39 -0400
Subject: Need to multiple cell comparison indices by cell length

---
 impl.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}¨⊸⊏𝕩
-- 
cgit v1.2.3