From 743ca62f5165c8c912feb509ca86303540dec6d6 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 31 Oct 2021 20:01:26 -0400
Subject: _fillBy_ implementation

---
 rt.bqn | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'rt.bqn')

diff --git a/rt.bqn b/rt.bqn
index 3dd727a5..c0ae860b 100644
--- a/rt.bqn
+++ b/rt.bqn
@@ -6,7 +6,13 @@ glyphs ← ∾ •Import "src/glyphs.bqn"
 vm ← •Import "vm.bqn"
 
 FillFn ← (⊑1↑0↑⥊)⊘{𝕩˙⌾⊢ <𝕨}
-_fillBy_ ← {𝕘⋄𝔽}
+_fillBy_ ← {
+  r←𝕨𝔽x←𝕩 ⋄ G←𝔾
+  𝕨({
+    _f ← {(3⌊•Type)◶⟨𝔽,0,' ',⊢⟩}
+    (FillFn⎊(!˙)_f 𝕨) G FillFn _f x
+  }FillFn⊢)⎊⊢⍟(0=•Type∘⊢) r
+}
 GroupLen ← {(𝕨⌈≠)⊸↑0 FillFn≠¨⊔𝕩}
 extra ← ⟨ •Type, FillFn, ⋆⁼, GroupLen, ∾⊔∘⊢, _fillBy_ ⟩
 provide ← { g←𝕩∊glyphs ⋄ (⍋⍋g)⊏extra∾•BQN∘⥊¨g/𝕩 } ∾need
-- 
cgit v1.2.3