diff options
Diffstat (limited to 'impl.bqn')
| -rw-r--r-- | impl.bqn | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -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←{ |
