aboutsummaryrefslogtreecommitdiff
path: root/doc/combinator.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-03 21:48:42 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-03 21:48:42 -0400
commita0bec0cf4d5d0ec9d9ebf0a4ce237f2266982cea (patch)
tree71a9e4c10a19aed749f5583052fe54072e77a7f3 /doc/combinator.bqn
parentfeafc455d067b3c6ab4a969db050a13540d4bd8a (diff)
Replace ≍○< with β‹ˆ in drawing and REPL sources
Diffstat (limited to 'doc/combinator.bqn')
-rw-r--r--doc/combinator.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/combinator.bqn b/doc/combinator.bqn
index f8369506..fe0f7879 100644
--- a/doc/combinator.bqn
+++ b/doc/combinator.bqn
@@ -30,13 +30,13 @@ DrawComp ← {π•Šπ•©:(names⊏˜compsβŠπ•©)π•Šπ•©; names π•Š spel:
ops ← β€’BQN∘β₯ŠΒ¨ spel
m2 ← Β¬spel∊"Λ™Λœ"
isC ← spel='Λ™'
- _symb ← {𝕗<βŠΈβˆΎβ‰β—‹<}
+ _symb ← {𝕗<βŠΈβˆΎβ‹ˆ}
lrand ← isC⊏⟨"𝔽"_symb,"𝕗"⟩
lrsp ← isC⊏"𝔽"β€Ώ"𝕗"
app ← m2 {oβ†π•©βŠ‘ops⋄𝕨◢{𝕩_o}β€Ώ{𝕩_o_("𝔾"_symb)}π•©βŠ‘lrand}Β¨ ↕sh
res ← >{βŸ¨π•"𝕩","𝕨"𝕏"𝕩"⟩}Β¨app
- map ← ⟨⟩⊸{(1<≑)β—Ά(≍(π•¨βˆΎ0)≍○<⊒)β€Ώ((𝕨≍○<βŠ‘)βˆΎβŸœβˆΎΒ·π•ŠΒ¨ΛœβŸœ(π•¨βŠΈβˆΎΒ¨((2×↕)- -⟜1)βˆ˜β‰ )1β†“βŠ’)𝕩}Β¨res
+ map ← ⟨⟩⊸{(1<≑)β—Ά(≍(π•¨βˆΎ0)β‹ˆβŠ’)β€Ώ((π•¨β‹ˆβŠ‘)βˆΎβŸœβˆΎΒ·π•ŠΒ¨ΛœβŸœ(π•¨βŠΈβˆΎΒ¨((2×↕)- -⟜1)βˆ˜β‰ )1β†“βŠ’)𝕩}Β¨res
pathβ€Ώname ← <Λ˜β‰βΌ><Λ˜βˆ˜β‰Β¨map
notBase ← (1<β‰ )β—ΆβŸ¨1,0β‰ Β―1βŠΈβŠ‘βŸ©Β¨Β¨ path