From 03e77fe9be605b6fae243df5f933d1482f46d969 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 16 Mar 2021 10:09:03 -0400
Subject: dzaima/BQN now supports length extension for Group

---
 dzref | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'dzref')

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)"⟩
   }
 
-- 
cgit v1.2.3