diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-04 20:52:39 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-05 17:41:05 -0400 |
| commit | 746bd0b2c60ede32d600533fa64085ac1ba247b5 (patch) | |
| tree | 3c2fca3900056d2a72fd2ea9d8507c6eb61d250f | |
| parent | da75b4391dd6ffc13da949c2ee5e2c97000692d0 (diff) | |
Need to multiple cell comparison indices by cell length
| -rw-r--r-- | impl.bqn | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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}¨⊸⊏𝕩 |