aboutsummaryrefslogtreecommitdiff
path: root/dzref
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-13 10:28:39 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-13 10:28:39 -0500
commit0658e1ba9dc1095449e4c0289324955716d402ef (patch)
tree7a0a3716d634c69bcf77afe0da9fc9ec9983ff4a /dzref
parent02d3ccdaee34c83aa26448794f4f98ef0adae58c (diff)
Use •Eval or •BQN instead of ⍎
Diffstat (limited to 'dzref')
-rwxr-xr-xdzref15
1 files changed, 10 insertions, 5 deletions
diff --git a/dzref b/dzref
index c2d516f6..7598775d 100755
--- a/dzref
+++ b/dzref
@@ -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"