diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-04 20:30:36 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-04 20:30:36 -0400 |
| commit | ba034c4564de0f8ee6f43a504bbad96900d23e68 (patch) | |
| tree | a3e633a23227c18166a0ebf691e3cfac6e527d99 /impl.bqn | |
| parent | 261bc816ea1635051bc367097c3952058543a4f5 (diff) | |
More obvious implementation of First
Diffstat (limited to 'impl.bqn')
| -rw-r--r-- | impl.bqn | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -407,7 +407,7 @@ OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩} ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf -⊑ ↩ (0¨∘≢)⊸Pick ⊘ Pick +⊑ ↩ (0⊑⥊) ⊘ Pick ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # Same definition, new Pick inverse ← {(⊑(0⊏𝕩)⊐<) ⊑ ((1⊏𝕩)∾⟨!∘0⟩)˜} ⍉ (2∾˜2÷˜≠)⊸⥊ ⟨ |