aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-29 11:03:07 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-29 11:03:07 -0400
commit3c6dd71383030fd3d21f84d7a9c2743ff4d74b13 (patch)
treec784527b585f71ecb87eb51387491201a1c6a4fa /src
parentb98adb455eb69fcd462540dabd2e3b762051511c (diff)
Use _glyphLookup_, not primitive comparison, for ReshapeT
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r.bqn b/src/r.bqn
index d19f1756..b4517051 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -431,6 +431,7 @@ _onAxes_←{
Β¬ ← 1+-
HomFil ← {((π•Ž0) Fill 𝕏)βŠ˜π•}⍟(+´⟨=,β‰ ,≑,β‰’βŸ©=⊣)
+ReshapeT ← "βˆ˜βŒŠβŒ½β†‘"_glyphLookup_(↕5)
Reshape←{
"𝕨β₯Šπ•©: 𝕨 must have rank at most 1" ! 1β‰₯=𝕨
s←Deshape 𝕨
@@ -700,7 +701,6 @@ _repeat_←{
(|βŠ‘<⟜0βŠ‘posβ€ΏnegΛ™)βš‡0 n
}
-ReshapeT ← ⟨∘,⌊,⌽,β†‘βŸ©βŠ‘βˆ˜βŠ<
JoinPrim ← ∾
⍟ ↩ _repeat_