From a0bec0cf4d5d0ec9d9ebf0a4ce237f2266982cea Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 3 Nov 2021 21:48:42 -0400 Subject: =?UTF-8?q?Replace=20=E2=89=8D=E2=97=8B<=20with=20=E2=8B=88=20in?= =?UTF-8?q?=20drawing=20and=20REPL=20sources?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/e.bqn | 4 ++-- src/p.bqn | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/e.bqn b/src/e.bqn index 9184a228..5909027b 100644 --- a/src/e.bqn +++ b/src/e.bqn @@ -88,7 +88,7 @@ Explain ← { (512‿0⊸⌈⊸(⊣∾˜(t+pad)-˜-˜÷2˙)dim+2×t) SVG gr Enc ∾⥊¨⟨ <"rect" Elt rc∾(Pos-pad)∾"width"‿"height"≍˘FmtNum dim <"text" Enc src - ("path" Elt ps∾"d"≍○<⊢)¨ pd - gt Enc ⟨gb,gf⟩ Enc¨ (1⊸⊑¨ ≍○<○(tp Enc¨⊢) ∾¨) toks + ("path" Elt ps∾"d"⋈⊢)¨ pd + gt Enc ⟨gb,gf⟩ Enc¨ (1⊸⊑¨ ⋈○(tp Enc¨⊢) ∾¨) toks ⟩ } diff --git a/src/p.bqn b/src/p.bqn index a3fa568f..7907edae 100644 --- a/src/p.bqn +++ b/src/p.bqn @@ -12,12 +12,12 @@ pg ← At "class=red|style=fill:none|stroke-width=1" pc ← At "class=red|r=4" rc ← At "class=code|stroke-width=1|rx=5" gr ← "g" At "font-family=BQN,monospace|font-size=18px" -Path ← "path" Elt ⊣∾"d"≍○<⊢ +Path ← "path" Elt ⊣∾"d"⋈⊢ Pair ← { "•Plot: 𝕨 and 𝕩 must consist of rows of numbers" ! 𝕨 ⊢⊘∧○((1≤=)◶⟨0,∧´∘⥊@⊸>⟩) 𝕩 "•Plot: 𝕨 and 𝕩 must have the same length" ! 𝕨 1⊘(≡○(¯1⊑≢)) 𝕩 - ⥊ 𝕨 (< (↕¯1⊑≢)⊘⊣ ≍○< ⊢)⎉1 𝕩 + ⥊ 𝕨 (< (↕¯1⊑≢)⊘⊣ ⋈ ⊢)⎉1 𝕩 } PairRec ← { d ← 𝕨≍○≡𝕩 -- cgit v1.2.3