From d578f20f3a7a7f06d58bd5bc04fd962df4692d0d Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Fri, 19 Nov 2021 21:35:29 -0500 Subject: =?UTF-8?q?More=20=E2=8B=88=20replacements?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- doc/combinator.bqn | 6 +++--- doc/functional.md | 2 +- md.bqn | 6 +++--- svg.bqn | 2 +- 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 diff --git a/md.bqn b/md.bqn index b9dbed33..746ea83a 100644 --- a/md.bqn +++ b/md.bqn @@ -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 diff --git a/svg.bqn b/svg.bqn index 0334f5cf..fb2e64c2 100644 --- a/svg.bqn +++ b/svg.bqn @@ -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←≡𝕩 diff --git a/wc.bqn b/wc.bqn index c66a2c8c..5f343777 100755 --- a/wc.bqn +++ b/wc.bqn @@ -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 ⟩ } -- cgit v1.2.3