aboutsummaryrefslogtreecommitdiff
path: root/src/r1.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-06-06 20:19:12 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-06-06 20:19:12 -0400
commit4d2322a4fb7c69fbd3cde18a8f7d4e6e9c057ef8 (patch)
treeb0bb5694a63c2847479b01881c299f7c9e5b9dd4 /src/r1.bqn
parent88d972512085cad864aff53366c457b972137ebd (diff)
Keep | with infinite 𝕨 from returning NaN
Diffstat (limited to 'src/r1.bqn')
-rw-r--r--src/r1.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/r1.bqn b/src/r1.bqn
index 024460df..e76270cd 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -695,7 +695,7 @@ _repeat_←{
Γ· ↩ Γ· _perv
⋆ ↩ ⋆ _perv
√ ← β‹†βŸœ(Γ·2) ⊘ (β‹†βŸœΓ·Λœ)
-| ← (| ⊘ {𝕩-π•¨Γ—βŒŠπ•©Γ·π•¨}) _perv
+| ← (| ⊘ (>β—‹|β—Ά{𝕩-π•¨Γ—βŒŠπ•©Γ·π•¨}β€Ώ(+⍟(<⟜0β—ΆβŸ¨0⊸>,0⊸<⟩))) ) _perv
⌊ ↩ (⌊ ⊘ {(𝕨>𝕩)βŠ‘π•¨β€Ώπ•©}) _perv
⌈ ↩ (-∘⌊∘- ⊘ {(𝕨<𝕩)βŠ‘π•¨β€Ώπ•©}) _perv
∧ ← β‹βŠΈβŠ ⊘ (Γ— _perv)