diff options
Diffstat (limited to 'doc/combinator.bqn')
| -rw-r--r-- | doc/combinator.bqn | 4 |
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 |