From da75b4391dd6ffc13da949c2ee5e2c97000692d0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 4 Aug 2020 20:30:36 -0400
Subject: More obvious implementation of First

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

(limited to 'impl.bqn')

diff --git a/impl.bqn b/impl.bqn
index df067c0f..d05ff710 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -407,7 +407,7 @@ OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋
 ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf
 
-⊑ ↩ (0¨∘≢)⊸Pick    ⊘ Pick
+⊑ ↩ (0⊑⥊)          ⊘ Pick
 ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}  # Same definition, new Pick
 
 inverse ← {(⊑(0⊏𝕩)⊐<) ⊑ ((1⊏𝕩)∾⟨!∘0⟩)˜} ⍉ (2∾˜2÷˜≠)⊸⥊ ⟨
-- 
cgit v1.2.3