okasaki

commit 7cd3c0a67b96d157c0d98c2852a4b3d82ed19134
parent 9c04fbbc50208de6c4dc4732acc20e085cd959bb
Author: Jared Tobin <jared@jtobin.io>
Date:   Wed, 15 Mar 2023 09:16:40 +0400

Generate bigger weight-biased leftist heaps.

Diffstat:
M
test/Heap/Weighted.hs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/test/Heap/Weighted.hs b/test/Heap/Weighted.hs
@@ -59,7 +59,7 @@ use a h = case a of
 
 hep :: (Ord k, Arbitrary k) => Gen (H.Heap k)
 hep = do
-  num  <- choose (0, 10)
+  num  <- choose (0, 1000)
   acts <- replicateM num act
   foldM (flip use) H.lef acts