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/p.bqn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/p.bqn') 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