From a91d127c8d170aeea74f74eed6bf55f8a4d76673 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 3 Nov 2021 13:47:53 -0400
Subject: =?UTF-8?q?Support=20for=20=E2=8B=88?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r0.bqn | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/r0.bqn')

diff --git a/src/r0.bqn b/src/r0.bqn
index a7b7f4c4..edde4d9b 100644
--- a/src/r0.bqn
+++ b/src/r0.bqn
@@ -2,8 +2,8 @@
 #   Fill _fillBy_
 #   +-×⌊=≤≢⥊⊑↕⌜⊘
 # Provides:
-#   ⌊⌈|<>≠≥⊢⊣∾↑↓⊏˙˜´∘○⊸⟜◶⍟
-#   ^^^^^^^  ^^^^  ^    ^^ are limited, suitable for r1
+#   ⌊⌈|<>≠≥⊢⊣∾⋈↑↓⊏˙˜´∘○⊸⟜◶⍟
+#   ^^^^^^^  ^^^^^  ^    ^^ are limited, suitable for r1
 
 ⊢ ← {𝕩}
 ⊣ ← {𝕩}⊘{𝕨}
@@ -26,6 +26,7 @@ Box ← {𝕩Fill⟨⟩⥊⟨𝕩⟩}
 | ← 0⊸≤◶-‿⊢
 ≠ ← (0<=)◶⟨1⋄0⊑≢⟩  # LIMITED to monadic case
 
+⋈ ← {⟨𝕩⟩} ⊘ {⟨𝕨,𝕩⟩}                # LIMITED by not having a result fill
 ∾ ← {k←≠𝕨⋄k⊸≤◶⟨⊑⟜𝕨⋄-⟜k⊑𝕩˜⟩⌜↕k+≠𝕩}  # LIMITED to two list arguments
 ↑ ← {⊑⟜𝕩⌜↕𝕨}                       # LIMITED to number 𝕨 and list 𝕩
 ↓ ← {(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}             # LIMITED to number 𝕨 and list 𝕩
-- 
cgit v1.2.3