From 00d29478d5a1b74c77643deef8f48699dacead3a Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 7 Jul 2021 16:32:12 -0400
Subject: Use Deal instead of Range for RandPart

---
 test/fuzz.bqn | 4 ++--
 1 file 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⟩ ← {
-- 
cgit v1.2.3