diff options
| -rw-r--r-- | doc/combinator.bqn | 6 | ||||
| -rw-r--r-- | doc/functional.md | 2 | ||||
| -rw-r--r-- | md.bqn | 6 | ||||
| -rw-r--r-- | svg.bqn | 2 | ||||
| -rwxr-xr-x | wc.bqn | 2 |
5 files changed, 9 insertions, 9 deletions
diff --git a/doc/combinator.bqn b/doc/combinator.bqn index fe0f7879..fa4466f7 100644 --- a/doc/combinator.bqn +++ b/doc/combinator.bqn @@ -17,11 +17,11 @@ n ← Text∘‿2⥊⟨"y",FmtNum h-37, "fill","currentColor"⟩ case ← (¯1‿1×w÷4.6) ("g"At"font-size=21px|font-family=BQN,monospace")_trans¨ 25 lt← Text∘‿2⥊⟨"y",FmtNum h-105, "font-size","19px"⟩ -FromPath ← ≠≍+´ +FromPath ← ≠⋈+´ Connect ← { e ← FromPath ¯1↓𝕨 curve ← ⟨1‿1.3, 1‿1.25‿0.9‿1, 0.5‿1.25‿1‿0⟩ - c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1≍⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩 + c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1⋈⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩 "path" Elt ps∾⟨"d",∾("M"∾(2÷˜≠c)⊏"LQC")∾⟜(Fmt Pnt˘⌾(∘‿2⊸⥊))¨e‿(c∾𝕩)⟩ } @@ -42,7 +42,7 @@ DrawComp ← {𝕊𝕩:(names⊏˜comps⊐𝕩)𝕊𝕩; names 𝕊 spel: notBase ← (1<≠)◶⟨1,0≠¯1⊸⊑⟩¨¨ path path ↓¨¨˜↩ -¬notBase vv ← (1↓⌽↓"𝕨"‿"𝕩") ∾˜¨⎉1 notBase /¨ name - vl ← (2 ≍⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path + vl ← (2 ⋈⚇0 ⟨0⟩‿⟨¯1,1⟩) ∾˜¨⎉1 notBase FromPath¨∘/¨ path vp ← Pnt¨¨ vl g ← (20+h×⊢)⊸Groups⟜(5+w×0.5+⊢)○↕´ sh diff --git a/doc/functional.md b/doc/functional.md index 071ecd2c..54989fae 100644 --- a/doc/functional.md +++ b/doc/functional.md @@ -73,7 +73,7 @@ To ← { } 0‿0‿512‿512 SVG gr Enc ∾⟨ - ⥊<("text"Attr"font-size"‿"24"∾Pos 256‿38) Enc """Functional programming""" + ⋈("text"Attr"font-size"‿"24"∾Pos 256‿38) Enc """Functional programming""" ('0'+↕∘≠)⊸(Circ¨) cat Enc˜⟜("text" Attr ·Pos 10⊸×)´¨ pl ∾To¨ arr @@ -207,7 +207,7 @@ Markdown ← {filename𝕊𝕩: code ← JoinLines 𝕩 # Highlight and unescape html-unsafe characters - c‿ci ← extensions◶(2⥊<⟨⟩)‿GetHighlights code + c‿ci ← extensions◶(⋈˜⟨⟩)‿GetHighlights code em‿e‿ei ← CharEntities code # If every line is indented by at least 4 additional spaces, we will @@ -220,7 +220,7 @@ Markdown ← {filename𝕊𝕩: g ← 𝕩∊"←↩" (⊑g⊐1) (<⟜(≠g))◶⟨1,¬(" "∾∾idChars)∧´∘∊˜↑⟩ 𝕩 } - r‿ri ← addRslt◶(2⥊<⟨⟩)‿{ + r‿ri ← addRslt◶(⋈˜⟨⟩)‿{ ⟨ (ShowRslt ⊣◶⟨"",(⥊∾⟜lf⎉1)∘Fmt∘⊢⟩ CodeExec)⎊("ERROR"∾lf)⍟(0<≠)¨ 𝕩 1 -˜ +` 1 + ≠¨ 𝕩 ⟩ # Don't forget the trailing newline } 𝕩 @@ -361,7 +361,7 @@ Markdown ← {filename𝕊𝕩: # If span has both a leading and a trailing space, they are removed. remSpace ← I2M ⥊ ((1<-˜˝˘)∧·∧˝˘' '=⊏⟜𝕩)⊸/ -⟜0‿1˘ codeBounds codeMask ∧↩ ¬ remSpace - ⟨code,codePos⟩ ← codeMask extensions◶(2⥊<⟨⟩)‿GetMultiHighlights 𝕩 + ⟨code,codePos⟩ ← codeMask extensions◶(⋈˜⟨⟩)‿GetMultiHighlights 𝕩 include ← ¬ remSpace ∨ ≠` I2M ⥊ ctInds codeBounds ↩ ⥊ -⟜1‿0˘ codeBounds unused ← actual ∧ include ∧ ¬ codeMask @@ -8,7 +8,7 @@ Highlight ← { # Create a node from a tag name and interior text. Enc ← { - DeNest ← {(3⌊≡)◶⟨!∘0,⥊<,⊢,∾𝕊¨⟩ ⥊𝕩} + DeNest ← {(3⌊≡)◶⟨!∘0,⋈,⊢,∾𝕊¨⟩ ⥊𝕩} open ← ∾⟨"<",𝕨,">"⟩ close← ∾⟨"</", (∧`𝕨≠' ')/𝕨, ">"⟩ l ← 1 < d←≡𝕩 @@ -73,7 +73,7 @@ Gen←{ 0∾("asm"-@)∾4↑1 1 S V (96∾⟜∾C¨)¨t 3 S V ⥊¨↕≠b - 7 S V ⥊<"fn"I⊸(⊣∾0≍⊢)n + 7 S V ⋈"fn"I⊸(⊣∾0≍⊢)n 10 S V C¨ b ⟩ } |