blob: c3cf6933e986e7621f0bc4550260ebef19d3f5ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Runtime hosted in dzaima/BQN
⟨src,need⟩ ← •Import "../src/pr.bqn"
⟨DRun⟩ ← need •Import "dc.bqn"
glyphs ← ∾ •Import "../src/glyphs.bqn"
GroupLen ← {(𝕨⌈≠)⊸↑0•FillFn≠¨⊔𝕩}
extra ← ⟨ •Type, •FillFn, ⋆⁼, GroupLen, ∾⊔∘⊢, •_fillBy_ ⟩
provide ← { g←𝕩∊glyphs ⋄ (⍋⍋g)⊏extra∾•BQN∘⥊¨g/𝕩 } ∾need
rt‿SetPrims ← ⟨provide,!∘0¨⟩ DRun src
PrimInd ← rt⊸⊐⌾<
Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸⋈⟩
SetPrims ⟨ Decompose, PrimInd ⟩
rt
|
