From 7b079cb1eca5f4658b3f1f415b09cc2e330f8af0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 2 Aug 2020 13:29:33 -0400
Subject: Replace _amend with ` as a basic runtime operation

---
 impl.bqn | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'impl.bqn')

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←{
-- 
cgit v1.2.3