diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-13 10:28:39 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-13 10:28:39 -0500 |
| commit | 0658e1ba9dc1095449e4c0289324955716d402ef (patch) | |
| tree | 7a0a3716d634c69bcf77afe0da9fc9ec9983ff4a /dzref | |
| parent | 02d3ccdaee34c83aa26448794f4f98ef0adae58c (diff) | |
Use •Eval or •BQN instead of ⍎
Diffstat (limited to 'dzref')
| -rwxr-xr-x | dzref | 15 |
1 files changed, 10 insertions, 5 deletions
@@ -36,9 +36,14 @@ Windows←{ ! ∧´𝕨≤1+s 𝕨{(∾⟜(𝕨≠⊸↓≢𝕩)∘≢⥊>)<¨⊸⊏⟜𝕩¨s(¬+⌜○↕⊢)⥊𝕨}⍟(0<≠𝕨)𝕩 } - ↕ ↩ ↕ ⊘ Windows +Group←(1=≡∘⊣)◶⊔‿((1==∘⊣)◶⟨ + ⥊∘⊣⊔∾˝∘⊢⍟(=∘⊣) + >○≠◶⊔‿{(¯1⊑𝕨)⥊⟜(<0↑𝕩)⊸(»˜)⍟(>⟜≠)(¯1↓𝕨)⊔𝕩} +⟩) +⊔ ↩ ⊔⊘Group + #⌜ # LAYER 6: Everything else @@ -70,20 +75,20 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩} ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf " -raw ← {⍎} +raw ← {•Eval} X ← {F:≤4} _withRef ← ˙ {v: chrs←⟨ - "↕⊐⊒∊⍷" + "↕⊐⊒∊⍷⊔" "" "⚇" ⟩ # built-in assumptions GetRepls ← { - c‿n ← 𝕩 ⋄ k←"↕⊐" - ⟨c,(⥊¨k)⌾(((⊑¨c)⊐k)⊸⊏)n⟩ ∾⟜<¨ "⍎"‿"⍎_withRef " + c‿n ← 𝕩 ⋄ k←"↕⊐⊔" + ⟨c,(⥊¨k)⌾(((⊑¨c)⊐k)⊸⊏)n⟩ ∾⟜<¨ ⟨"•Eval","(•Eval _withRef)"⟩ } ⟨E_proc,E_nodef⟩ ← chrs‿GetRepls •Import "src/pp.bqn" |
