From 35f56ebecb316bbbc07ee5b2cd60730c3b6976df Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 11 Jun 2020 22:53:59 -0400
Subject: =?UTF-8?q?Add=20monadic=20=E2=8A=A3=E2=8A=A2=20(no-ops)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 c.bqn          | 1 +
 test/cases.bqn | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/c.bqn b/c.bqn
index a6fcebab..c422d4fd 100755
--- a/c.bqn
+++ b/c.bqn
@@ -27,6 +27,7 @@ MakeTab←{{(≠chF)↑⊑¨(chF⊐𝕨)⊔𝕩}○∾⟜(⥊¨∘⥊¨)´⍉(2(
 tab1←MakeTab⟨
   "|-⌈⌊√" , (Hex"99")+(↕4)∾6
   "÷"     , <(Hex"10")∾1
+  "⊣⊢"    , 2⥊<⟨⟩
 ⟩
 tab2←MakeTab⟨
   "⊣"     , Hex"1A"
diff --git a/test/cases.bqn b/test/cases.bqn
index 15c15a80..50a8e6f7 100644
--- a/test/cases.bqn
+++ b/test/cases.bqn
@@ -2,11 +2,11 @@
 -2   % 1⌊-2
 -1   % -2⌊1
 1    % (÷2)+(÷3)+(÷6)
-4    % 4⊣5
+4    % ⊢4⊣5
 0    % s←√5,⌊9×|5-s×s
 -0.5 % ((-3)+√(3×3)-4×2×1)÷2×2
 -0.5 % a←2,b←3,c←1⋄((-b)+√(b×b)-4×a×c)÷2×a
 -0.5 % b←1+a←1+c←1⋄((-b)+√(b×b)-4×a×c)÷2×a
--0.5 % b←3⋄d←(b×b)-4×2×1⋄((-b)+√d)÷2×2
-6    % a←3,b←4,c←5⋄s←(÷2)×a+b+c⋄√s×(s-a)×(s-b)×(s-c)
+-0.5 % b←3⋄⊢d←(b×b)-4×2×1⋄((-b)+√d)÷2×2
+6    % a←3,b←4,c←5⋄⊣s←(÷2)×a+b+c⋄√s×(s-a)×(s-b)×(s-c)
 3.1415 % t←2×5⋄3+(1+(4+(1+5÷t)÷t)÷t)÷t
-- 
cgit v1.2.3