From 5780ba1477d9b53fe4f9ec1135694fd95e7dca11 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 13 Jun 2021 16:08:02 -0400 Subject: =?UTF-8?q?Set=20numeric=20fill=20for=20elements=20of=20=E2=86=95l?= =?UTF-8?q?ist?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/r1.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/r1.bqn b/src/r1.bqn index e76270cd..7ae64e3a 100644 --- a/src/r1.bqn +++ b/src/r1.bqn @@ -559,7 +559,7 @@ ShiftAfter←{ Range←{ I←{"↕𝕩: 𝕩 must consist of natural numbers"!Nat𝕩⋄↕𝕩} - M←{"↕𝕩: 𝕩 must be a number or list"!1==𝕩⋄(0⌜𝕩)Fill(<⟨⟩)Pair⊸∾⌜´I⌜𝕩} + M←{"↕𝕩: 𝕩 must be a number or list"!1==𝕩⋄(0⌜𝕩)Fill 0⊸Fill⌜(<⟨⟩)Pair⊸∾⌜´I⌜𝕩} IsArray◶I‿M 𝕩 } Windows←{ -- cgit v1.2.3