From 3afc2db4aa878d9b62ca125c6113a92ed84793ed Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 24 Apr 2021 19:28:08 -0400 Subject: =?UTF-8?q?Move=20=E2=89=8D=20and=20=E2=88=BE=20forward=20a=20litt?= =?UTF-8?q?le=20more?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/r.bqn | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/r.bqn b/src/r.bqn index 801ea9df..a351023d 100644 --- a/src/r.bqn +++ b/src/r.bqn @@ -658,8 +658,6 @@ Find←{ 0 Fill 𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩 }○ToArray -≍ ← >∘Pair _fillBy_ (⊢⊘IF) -∾ ↩ Join ⊘ JoinTo ⊔ ← GroupInds ⊘ GroupGen ⊐ ← SelfClas ⊘ (1 _search) ∊ ← ⊢_self ⊘ (0 _search˜) @@ -692,7 +690,7 @@ ProgressiveIndexOf ← 0 Fill { c←1-˜=𝕨 "⊒: Rank of 𝕨 must be at least 1" ! 0≤c "⊒: Rank of 𝕩 must be at least cell rank of 𝕨" ! c≤=𝕩 - 𝕨⊐○(((≢∾2˙)⥊≍˘⟜OccurrenceCount⍟(0<≠)∘⥊) 𝕨⊸⊐)𝕩 + 𝕨⊐○(Pair¨⟜(≢⥊OccurrenceCount∘⥊) 𝕨⊸⊐)𝕩 } _repeat_←{ @@ -711,7 +709,7 @@ _repeat_←{ _lookup_ ← { s ← 2×↕(≠𝕘)÷2 - (s⊏𝕘) _glyphLookup_ (((1+s)⊏𝕘)∾<𝕗) + (s⊏𝕘) _glyphLookup_ (((1+s)⊏𝕘)∾⟨𝕗⟩) } Identity ← {𝕏0} ("´: Identity not found"!0˙) _lookup_ ⟨ '+',0 , '-',0 @@ -723,7 +721,7 @@ Identity ← {𝕏0} ("´: Identity not found"!0˙) _lookup_ ⟨ '>',0 , '≥',1 ⟩ -structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠⌜𝕩)} ⥊⌜ ⟨ +structPrimClass ← {(Join1𝕩)_glyphLookup_((/∾⟜⥊≠)≠⌜𝕩)} ⥊⌜ ⟨ '⊢'‿'⊣'‿'˜'‿'∘'‿'○'‿'⊸'‿'⟜'‿'⊘'‿'◶' '='‿'≠'‿'≢' '<' @@ -736,6 +734,7 @@ structPrimClass ← {(∾𝕩)_glyphLookup_((/∾≠)≠⌜𝕩)} ⥊⌜ ⟨ # ⚇ ⟩ +∾ ↩ Join ⊘ JoinTo IA ← "⁼: Inverse failed"⊸! IX ← "⁼: Inverse does not exist"⊸! INF← "⁼: Inverse not found"!0˙ @@ -840,6 +839,7 @@ Inverse ← Type◶(3‿1‿2/{⊢⊣𝕩IX∘≡⊢}‿FuncInverse‿("Cannot i ◶ ↩ {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩} # Same definition, new Pick ⚇ ← _depthOp_ ⥊ ↩ Deshape ⊘ Reshape +≍ ← >∘Pair _fillBy_ (⊢⊘IF) ⍉ ← Transpose ⊘ ReorderAxes ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf ⍷ ← ∊⊸/ ⊘ Find -- cgit v1.2.3