aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-19 21:35:29 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-19 21:35:29 -0500
commitd578f20f3a7a7f06d58bd5bc04fd962df4692d0d (patch)
tree3ad6ac2c3b4d321b91e6eadc541933a6dc641971
parent3fd43be98cb39903a8f6e62d8d2427daee59a2bf (diff)
More ⋈ replacements
-rw-r--r--doc/combinator.bqn6
-rw-r--r--doc/functional.md2
-rw-r--r--md.bqn6
-rw-r--r--svg.bqn2
-rwxr-xr-xwc.bqn2
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
}