diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-26 09:32:25 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-03-26 09:32:25 -0400 |
| commit | 3fbc09952ed3db5a329195c742865732537e7664 (patch) | |
| tree | 7be8898a8b297f4f5aa4d5beef93d57d8c95062e /src/r.bqn | |
| parent | 796d15378aee570675b4d0c34dd5b06c98e013dd (diff) | |
Define a default PrimInd from pr.bqn
Diffstat (limited to 'src/r.bqn')
| -rw-r--r-- | src/r.bqn | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,8 +1,9 @@ # BQN runtime. Requires: -# Type Fill Log GroupLen GroupOrd _fillBy_ -# !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘ +# Type Fill Log GroupLen GroupOrd _fillBy_ +# !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘ +# Filled in by runtime: glyphs and default PrimInd Decompose ← {0‿𝕩} -PrimInd ← {𝕩⋄!0} +PrimInd ← {𝕩} SetPrims ← {Decompose‿PrimInd ↩ 𝕩} ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # LIMITED to number left operand result @@ -43,8 +44,7 @@ _fold←{ ´ ← _fold _glyphLookup_ ← { - g←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕«»⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!˙˜˘¨⌜⁼´˝`∘○⊸⟜⌾⊘◶⎉⚇⍟%" - {PrimInd𝕩} ⊑ ((𝕘⊑˜·+´·×`𝕗(1-=)⌜<)⌜g)˙ + {PrimInd𝕩} ⊑ ((𝕘⊑˜·+´·×`𝕗(1-=)⌜<)⌜glyphs)˙ } Cell←{(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}⟜≢ |