From 7631b1c54c3d03ae88f6536a89daedb4c8d562b1 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 17 Sep 2022 10:37:14 -0400
Subject: Avoid generating a negative first entry in RandRep

---
 test/fuzz.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/fuzz.bqn b/test/fuzz.bqn
index 4aa41ea0..706c33ce 100644
--- a/test/fuzz.bqn
+++ b/test/fuzz.bqn
@@ -204,11 +204,11 @@ _testDySearch ← { # ⊐⊒∊⍋⍒
   as { ! 𝕨 𝕏 _testConsistent_ ≡ b }¨ {𝕏˜}⍟(∊˙⊸=)¨ 𝕗
 }
 
-RandRep ← -⟜»∘∧ 1⊸+⊸gen.Index⟜⥊
-_testIndices ← { # /
+RandRep ← -⟜((0⌊1⊸↑)⊸»)∘∧ 1⊸+⊸gen.Index⟜⥊
+_testIndices ← { # /⊔
   (RandRep○RandBound˜ 𝕩)⊸{ ! 𝕏 _testConsistent_ ≡ 𝕨 }¨ 𝕗
 }
-_testSelect ← { # /⊏
+_testSelect ← { # /⊏⊔
   l‿sh ← (⍋≠¨)⊸⊏ RandShape¨ 𝕩‿𝕩
   n ← RandBound 𝕩
   d ← 𝕨 gen.Struct sh
-- 
cgit v1.2.3