diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 14:40:23 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 14:40:23 -0400 |
| commit | 46b80d891117b04ec032c3087c2271c4bc518840 (patch) | |
| tree | 1637aafcc1c002c04820d3c6e3a65bd16d72f136 /src | |
| parent | 6c3f798b272bc0e920791d6555ce66c7f958a5d6 (diff) | |
Implement •ExtendedBQN to create sub-BQNs with added primitives
Diffstat (limited to 'src')
| -rwxr-xr-x | src/cjs.bqn | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/src/cjs.bqn b/src/cjs.bqn index 487740f0..c15527a7 100755 --- a/src/cjs.bqn +++ b/src/cjs.bqn @@ -27,13 +27,17 @@ Fconst ← ≡◶⟨@⊸≤◶Num‿Char, Str, ⊑⟩ Fout ← (≠↑⟨F,Fconst,L F¨,F⟩˙) {L𝕎¨𝕩}¨ ⊢ Frun ← "provide"⊸Cat⌾(1⊸⊑) Fout Long ← ∾ (≠↑1‿3/⟨" "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}¨ ⊢ +LFC ← Long∘Fout∘Comp + SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩} -•Out (⊑"r"‿"c"‿"f"‿"e"‿"p"⊐⊏)◶⟨ +CArg ← {J (¯5⊸↓∾𝕩˙)⌾⊑ •FLines "c.bqn"} + +•Out (⊑"r"‿"c"‿"cc"‿"f"‿"e"‿"p"⊐⊏)◶⟨ {𝕩⋄ref‿len←•Import"pr.bqn"⋄Long Frun len⊸↓⌾(1⊸⊑)Comp ref} - {𝕩⋄g←"⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs - Long Fout Comp J (¯5⊸↓∾g˙)⌾⊑ •FLines "c.bqn"} - {𝕩⋄Long Fout Comp •FChars "f.bqn"} - {𝕩⋄Long Fout Comp SVG "e"} - {𝕩⋄Long Fout Comp SVG "p"} + {𝕩⋄LFC CArg "⟨"∾"⟩"«∾","⊸∾¨'"'(⊣∾∾˜)¨glyphs} + {𝕩⋄LFC "{"∾"}"∾˜CArg"𝕩"} + {𝕩⋄LFC •FChars "f.bqn"} + {𝕩⋄LFC SVG "e"} + {𝕩⋄LFC SVG "p"} ¯1 ↓ · J L∘Fout∘Comp¨ ⟩ args |