aboutsummaryrefslogtreecommitdiff
path: root/impl.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'impl.bqn')
-rw-r--r--impl.bqn12
1 files changed, 0 insertions, 12 deletions
diff --git a/impl.bqn b/impl.bqn
index 1401e115..0848136f 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -148,18 +148,6 @@ _rankOp_←{
Enc↩(>⟜0+≥⟜=)◶⟨<⊢,Enc,<¨⊢⟩
> ((0⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩
}
-_scan←{
- ! IsArray 𝕩
- ! 1≤=𝕩
- F←𝔽
- {
- r←⥊𝕩 ⋄ l←≠𝕩 ⋄ c←×´1 Cell 𝕩
- {r↩r𝕩_amend˜𝕨F○(⊑⟜r)𝕩}⟜(c⊸+)¨↕c-˜≠r
- (≢𝕩)⥊r
- }⍟(0<≠∘⥊)𝕩
-}
-
-` ← _scan
⎉ ← _rankOp_
˘ ← {𝔽⎉¯1}
_insert←{