From 258dad824c4c7205a311e197e9c0d67cdbd4e6d0 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 1 May 2021 21:09:17 -0400
Subject: Put loops inside the blocks in _perv

---
 src/r1.bqn | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 0c737f9c..398b079b 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -63,11 +63,10 @@ _eachd←{
 }
 
 _perv←{ # Pervasion
-  R←𝔽{𝕨𝔽_perv𝕩}
-  +○IsArray◶⟨
+  R←+○IsArray◶⟨
     𝔽
-    R⌜⊘(>○IsArray◶{𝕨{𝕗R𝕩}⌜𝕩}‿{𝕩{𝕩R𝕗}⌜𝕨}) _fillBy_ R
-    R _eachd _fillBy_ R
+    {R⌜𝕩}⊘(>○IsArray◶{𝕨⊸R⌜𝕩}‿{R⟜𝕩⌜𝕨}) _fillBy_ {𝕨R𝕩}
+    {𝕨R _eachd𝕩} _fillBy_ {𝕨R𝕩}
   ⟩
 }
 
-- 
cgit v1.2.3