aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-23 17:28:37 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-23 17:28:37 -0400
commitfec8c970780cad3d31613fcff955a98a9ca12eb8 (patch)
tree7b86d1b425fb47900dc74e8c4f53a4f85b1d55a7 /src
parentb0996fd545a32e017a2aa2e94eed79eea15091b1 (diff)
Use _perv instead of ⚇0 in _repeat_
Diffstat (limited to 'src')
-rw-r--r--src/r.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 075efa3b..b3b6f930 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -700,11 +700,11 @@ _repeat_←{
n←𝕨𝔾𝕩
Multi←{
l←u←0
- {"⍟: Repetition numbers in 𝕨𝔾𝕩 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n
+ {"⍟: Repetition numbers in 𝕨𝔾𝕩 must be integers"!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}_perv n
i←⟨𝕩⟩⋄P←B⊸{𝕎`i∾↕𝕩}
pos←f P u
neg←f 0⊸<◶⟨i,Inverse⊸P⟩ -l
- (|⊑<⟜0⊑pos‿neg˙)⚇0 n
+ (|⊑<⟜0⊑pos‿neg˙)_perv n
}
(Nat n)◶Multi‿{𝕩(B f)∘⊢´↕n} 𝕩
}