diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-23 17:28:37 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-23 17:28:37 -0400 |
| commit | fec8c970780cad3d31613fcff955a98a9ca12eb8 (patch) | |
| tree | 7b86d1b425fb47900dc74e8c4f53a4f85b1d55a7 /src | |
| parent | b0996fd545a32e017a2aa2e94eed79eea15091b1 (diff) | |
Use _perv instead of ⚇0 in _repeat_
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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} 𝕩 } |
