diff options
Diffstat (limited to 'test/fuzz.bqn')
| -rw-r--r-- | test/fuzz.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/fuzz.bqn b/test/fuzz.bqn index 9c52f9d7..94819cc3 100644 --- a/test/fuzz.bqn +++ b/test/fuzz.bqn @@ -139,11 +139,12 @@ TestDyArith ← opts.dyArith{ (𝕨⊸RandArith¨ sh)_t¨ f { k←𝕩 - p‿m ← (∊/⊣)⟜f¨ ⟨+⟩‿⟨-⟩ + p‿m‿n ← (∊/⊣)⟜f¨ ⟨+⟩‿⟨-⟩‿⟨¬⟩ rca ← ⟨RandChar,RandArith⟩ Fit ← -⟜(@+1-˜17×2⋆16)⌈-⟜@⌊⊢ { (⌽⍟(Rand 2) -∘Fit⟜-` rca{k𝕎𝕩}¨sh)_t 𝕩 }¨ p { s←Rand 2⋄(Fit`⍟s(⊣`⍟(¬s)rca){k𝕎𝕩}¨sh)_t 𝕩 }¨ m + { s←Rand 2⋄((1+Fit)`⍟s(⊣`⍟(¬s)rca){k𝕎𝕩}¨sh)_t 𝕩 }¨ n }⍟(0⊸<∧≤⟜5) 𝕨 } } |