diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-16 10:09:03 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-16 10:10:51 -0400 |
| commit | 03e77fe9be605b6fae243df5f933d1482f46d969 (patch) | |
| tree | 8a92c760d8be6b9b626bb2b08e88b79d4a346be8 | |
| parent | 028bbf0c44ad72694533198c1a54497a5487e7f3 (diff) | |
dzaima/BQN now supports length extension for Group
| -rwxr-xr-x | dzref | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -38,12 +38,6 @@ Windows←{ } ↕ ↩ ↕ ⊘ Windows -Group←(1=≡∘⊣)◶⊔‿((1==∘⊣)◶⟨ - ⥊∘⊣⊔∾˝∘⊢⍟(=∘⊣) - >○≠◶⊔‿{(¯1⊑𝕨)⥊⟜(<0↑𝕩)⊸(»˜)⍟(>⟜≠)(¯1↓𝕨)⊔𝕩} -⟩) -⊔ ↩ ⊔⊘Group - #⌜ # LAYER 6: Everything else @@ -65,7 +59,7 @@ Find←{ 𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩 } -⊐ ← ⊐ ⊘ IndexOf +⊐ ↩ ⊐ ⊘ IndexOf ∊ ← MarkFirst ⊘ (⊐˜<≠∘⊢) ⍷ ← ∊⊸/ ⊘ Find @@ -80,14 +74,14 @@ X ← {F:≤4} _withRef ← ˙ {v: chrs←⟨ - "↕⊐⊒∊⍷⊔" + "↕⊐⊒∊⍷" "" "⚇" ⟩ # built-in assumptions GetRepls ← { - c‿n ← 𝕩 ⋄ k←"↕⊐⊔" + c‿n ← 𝕩 ⋄ k←"↕⊐" ⟨c,(⥊¨k)⌾(((⊑¨c)⊐k)⊸⊏)n⟩ ∾⟜<¨ ⟨"•Eval","(•Eval _withRef)"⟩ } |
