From 64868f670243fdc64f6f0bed28d4c9c31ef98966 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 4 Jan 2022 08:02:18 -0500
Subject: =?UTF-8?q?Fix=20fill=20counting=20for=20Take=20with=20atom=20?=
 =?UTF-8?q?=F0=9D=95=A8=20and=20high-rank=20=F0=9D=95=A9=20(fixes=20#52)?=
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 0aadb95b..1175a655 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -525,7 +525,7 @@ _takeDrop←{
     l←𝕨p◶⟨0⌈+,⌊⟩≠𝕩
     F←𝕩{(Fill𝕗)˙⌜↕𝕩}
     k←1⋄S←⊢ ⋄ 𝕨⊸{k×´↩c←1 Cell𝕩 ⋄ S↩(⟨(0⌈(≠𝕩)-⊢)⍟(1-take)|𝕨⟩∾c)⊸⥊}⍟(1<=) 𝕩
-    S ((|∘𝕨-≠){𝕩p◶⟨∾˜,∾⟩F𝕨×k}⍟(>⟜0)⊢)⍟take (l×k) (take=p)◶↓‿↑ ⥊𝕩
+    S ((|∘𝕨-≠∘𝕩){𝕩p◶⟨∾˜,∾⟩F𝕨×k}⍟(>⟜0)⊢)⍟take (l×k) (take=p)◶↓‿↑ ⥊𝕩
   }‿{
     ernk ! 1≥=𝕨
     𝕨 ↩ ⥊𝕨
-- 
cgit v1.2.3