aboutsummaryrefslogtreecommitdiff
path: root/impl.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-08-02 13:29:33 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-08-02 15:32:51 -0400
commit7b079cb1eca5f4658b3f1f415b09cc2e330f8af0 (patch)
tree566cfa5954c5a4b4cb7ce9639648d059b0791ad9 /impl.bqn
parent1a58b9e11835bba2970cdb146c65cbaf5b50bab7 (diff)
Replace _amend with ` as a basic runtime operation
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←{