Tweak tree level generation

2021-04-20 19:45:32 +02:00
parent b911a013e0
commit 732e5281a8
3 changed files with 20 additions and 2 deletions
@@ -47,7 +47,7 @@ Randomly generate a small tree.
 aTreeStrut :: RandomGen g => State g (Tree ())
 aTreeStrut = do
    d <- state $ randomR (9,11:: Int)
-    nbs <- state $ randomR (2,5)
+    nbs <- state $ randomR (2,4)
    bds <- takeN nbs [1 .. d - 1]
    bs  <- replicateM nbs smallBranch
    let trunk = treePath d