aboutsummaryrefslogtreecommitdiff
path: root/src/r0.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-03 13:47:53 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-03 13:47:53 -0400
commita91d127c8d170aeea74f74eed6bf55f8a4d76673 (patch)
treeba698594b326774611f36680b28b93f2174108b7 /src/r0.bqn
parentaa3f412e793d5c8f8c7efd71999c3c849a085843 (diff)
Support for ⋈
Diffstat (limited to 'src/r0.bqn')
-rw-r--r--src/r0.bqn5
1 files changed, 3 insertions, 2 deletions
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 𝕩