diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-07-07 16:32:12 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-07-07 16:32:12 -0400 |
| commit | 00d29478d5a1b74c77643deef8f48699dacead3a (patch) | |
| tree | 9adf94c97411f03bd723314ddab9fbb159f1d21a | |
| parent | 8d9506d2fe2063d9b5d4604e5d3d7c2b2ce3df56 (diff) | |
Use Deal instead of Range for RandPart
| -rw-r--r-- | test/fuzz.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/fuzz.bqn b/test/fuzz.bqn index e1b83102..571502fd 100644 --- a/test/fuzz.bqn +++ b/test/fuzz.bqn @@ -29,7 +29,7 @@ Any number of types or bounds can be given; all combinations are tested." Squeeze‿ListVariations‿Variation‿ClearRefs ← •internal -Range ← (•MakeRand 2).Range +⟨Range,Deal⟩ ← •MakeRand 2 Rand ← {𝕨 Range 1⌈𝕩} _randChoose ← { Rand∘(≠𝕗)◶𝕗 } _randUnbounded ← { 𝕊⊸+⍟(1=-)⟜Rand 𝕗 } @@ -48,7 +48,7 @@ RandRank ← 4 _randUnbounded Sigmoid ← (40≤|)◶⟨1(-÷+)˜⋆,×⟩ # 𝕨 positive (not zero) integers summing to 𝕩 -RandPart ← { ¬⟜» (𝕨-1) (∧∘Rand∾1-˜⊢) 𝕩¬𝕨 } +RandPart ← ¯1 (⊢-») (∧∘Deal∾⊢)○(-⟜1) # 𝕩 is maximum bound plus 1 for both functions ⟨RandBound,RandShape⟩ ← { |