From 55dd46871b8b4d7e1fdd44fc819cc649edade6a8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 13 Sep 2020 15:20:47 -0400
Subject: =?UTF-8?q?Add=20dyadic=20=C2=AB=C2=BB=20to=20dzref?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dzref | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'dzref')

diff --git a/dzref b/dzref
index 6fcc5f5f..a8e47626 100755
--- a/dzref
+++ b/dzref
@@ -1,6 +1,9 @@
 #!/usr/bin/env dbqn
 
 impl ← "
+» ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ ( ≠𝕩)↑𝕨∾𝕩}
+« ← {!𝕨1⊸⌊⊸≤○=𝕩 ⋄ (-≠𝕩)↑𝕩∾𝕨}
+
 #⌜
 # LAYER 4: Operators
 
@@ -89,7 +92,7 @@ raw ← {⍎}
 X ← {F:≤4}
 {v:
   chrs←⟨
-    "∾↕⊐⊒∊⍷"
+    "»«∾↕⊐⊒∊⍷"
     ""
     "⚇"
   ⟩
-- 
cgit v1.2.3