aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-16 10:09:03 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-16 10:10:51 -0400
commit03e77fe9be605b6fae243df5f933d1482f46d969 (patch)
tree8a92c760d8be6b9b626bb2b08e88b79d4a346be8
parent028bbf0c44ad72694533198c1a54497a5487e7f3 (diff)
dzaima/BQN now supports length extension for Group
-rwxr-xr-xdzref12
1 files changed, 3 insertions, 9 deletions
diff --git a/dzref b/dzref
index 7598775d..7369415c 100755
--- a/dzref
+++ b/dzref
@@ -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)"⟩
}