From 0e0bc9b334987e4b0fd17f62946af029688af146 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 1 Jul 2021 09:23:22 -0400
Subject: Fast handling for empty cells in search

---
 src/r1.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index d99c30f0..6747f3ca 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -172,7 +172,7 @@ _search←{ # 0 for ∊˜, 1 for ⊐
     "p⊐n or n∊p: Rank of n must be at least cell rank of p" ! c≤=𝕩
     n←≠𝕨 ⋄ k←1×´s←1 Cell 𝕨 ⋄ cx←c-˜=𝕩
     lx←1×´sh←cx↑≢𝕩
-    sh ⥊ 𝕨 (0<n)◶⟨0,s MatchS cx⊸Cell⟩◶{𝕩⋄(ind×n)⌜↕lx}‿{
+    sh ⥊ 𝕨 (e←0<n×k)◶⟨0,s MatchS cx⊸Cell⟩◶{𝕩⋄(ind◶⟨n⊸>,⊢⟩ n×e)⌜↕lx}‿{
       cc ← (⊑⟜(⥊𝕨))⊸(1-Match)⟜(⊑⟜(⥊𝕩)) _getCellCmp k
       𝕨 ×○(8<≠∘⥊)◶{𝕩
         i‿j←(k⊸×⌜↕)⌜n‿lx ⋄ {Red CC⟜𝕩⌜i}⌜j
-- 
cgit v1.2.3