diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-01 18:38:56 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-01 18:38:56 +0100 |
| commit | 88828bd004ccba13e227f732106ab30c3731837f (patch) | |
| tree | ace2aa65a3c288f24ea89c02a257d5e41e02ef86 | |
| parent | 45c429917c95713b339cc4d9210a842546e72a0d (diff) | |
Simplify genShRwithTarget a little
| -rw-r--r-- | test/Gen.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/Gen.hs b/test/Gen.hs index b10e763..4f5fe96 100644 --- a/test/Gen.hs +++ b/test/Gen.hs @@ -78,9 +78,8 @@ genShRwithTarget targetMax sn = do dims <- genDims m (if dim == 0 then 0 else tgt `div` dim) return (dim :$: dims) dims <- genDims sn targetSize - let dimsL = toList dims - maxdim = maximum dimsL - cap = binarySearch (`div` 2) 1 maxdim (\cap' -> product (min cap' <$> dimsL) <= targetSize) + let maxdim = maximum dims + cap = binarySearch (`div` 2) 1 maxdim (\cap' -> shrSize (min cap' <$> dims) <= targetSize) shuffleShR (min cap <$> dims) -- | Example: given 3 and 7, might return: |