From 463f9529924d34fa3243870219ff87dd0e3a2ea7 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 29 Jun 2021 16:07:55 -0400
Subject: =?UTF-8?q?Avoid=20regenerating=20arguments=20across=20character?=
 =?UTF-8?q?=20+-=C2=AC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/test/fuzz.bqn b/test/fuzz.bqn
index 6a8b5452..3f7e430d 100644
--- a/test/fuzz.bqn
+++ b/test/fuzz.bqn
@@ -136,19 +136,18 @@ RandDyShape ← {
   (Rand 2) ⌽ ≍○<⟜Prefix RandShape 𝕩
 }
 TestDyArith ← opts.dyArith{
+  ch ← 0<+´≠¨ pmn ← (∊⟜𝕗⥊¨⊢) +‿-‿¬
   (0<≠f←𝕗) ⊑ 1‿{
     sh ← RandDyShape 𝕩
     _t ← { ! 𝕏 _testConsistent_ FlatMatch´ 𝕗 }
     (𝕨⊸RandArith¨ sh)_t¨ f
     {
       k←𝕩
-      p‿m‿n ← (∊/⊣)⟜f¨ ⟨+⟩‿⟨-⟩‿⟨¬⟩
-      rca ← ⟨RandChar,RandArith⟩
+      rca ← ⟨RandChar,RandArith⟩{k𝕎𝕩}¨sh
       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) 𝕨
+      ⟨⌽⍟(Rand 2)-∘Fit⟜-`,Fit`,(1+Fit)`⟩ { (𝕎rca)_t 𝕩 }¨¨ pmn
+      { (sh (k RandChar ⊣)⌾(1⊸⊑) rca)_t¨ 𝕩 }⍟(0<≠) ∾1↓pmn
+    }⍟(ch∧0⊸<∧≤⟜5) 𝕨
   }
 }
 
-- 
cgit v1.2.3