aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rt.bqn8
1 files changed, 7 insertions, 1 deletions
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