From cebaf4fa85cd1a91c0324933bde4d4e986307016 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 29 Apr 2021 18:55:47 -0400
Subject: =?UTF-8?q?Move=20limited=20=C2=A8=20from=20r1=20to=20r0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src/r0.bqn')

diff --git a/src/r0.bqn b/src/r0.bqn
index 8347f8bf..a7b7f4c4 100644
--- a/src/r0.bqn
+++ b/src/r0.bqn
@@ -30,6 +30,8 @@ Box ← {𝕩Fill⟨⟩⥊⟨𝕩⟩}
 ↑ ← {⊑⟜𝕩⌜↕𝕨}                       # LIMITED to number 𝕨 and list 𝕩
 ↓ ← {(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}             # LIMITED to number 𝕨 and list 𝕩
 
+¨ ← { d←⥊𝕩⋄(≢𝕩)⥊(⊑⟜(⥊𝕨)𝔽⊑⟜d)⌜↕≠d } # LIMITED to equal-shape arrays
+
 _fold0←{
   l←≠𝕩 ⋄ F←𝔽
   r←𝕨 {l↩l-1⋄l⊑𝕩}⊘⊣ 𝕩
-- 
cgit v1.2.3