From 9cdf7da46d5621b8bdaceae82ce1174237d19d97 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 1 Jul 2021 08:57:00 -0400
Subject: Fix shape generation issues in search-for argument

---
 test/fuzz.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/fuzz.bqn b/test/fuzz.bqn
index 77fccfaf..0043e62d 100644
--- a/test/fuzz.bqn
+++ b/test/fuzz.bqn
@@ -179,7 +179,7 @@ _testMonSearch ← { # ⊐⊒∊⍷∧∨⍋⍒
 _testDySearch ← { # ⊐⊒∊⍋⍒
   sh ← RandShape1 𝕩
   k ← ⍋‿⍒⊐𝕗
-  a‿b ← 𝕨⊸gen.Arith¨ ⟨sh, (RandShape·⌊𝕩÷×´)⊸∾ 1↓sh⟩
+  a‿b ← 𝕨⊸gen.Arith¨ ⟨sh, (0⊸<◶⟨-⟜⌊RandShape∘𝕩,RandShape⟩·⌊𝕩÷1⌈×´)⊸∾ 1↓sh⟩
   as ← (⊐k) ⊏ {𝕏a}¨(⍷k)⊏∧‿∨‿⊢
   as { ! 𝕨 𝕏 _testConsistent_ FlatMatch b }¨ {𝕏˜}⍟(∊˙⊸=)¨ 𝕗
 }
-- 
cgit v1.2.3