Lab 3: Ex 4

[BertLisser]

Very nice solution. Excellent.
However important test cases Dsj, Conj with the empty list as argument are missed.
The cause of it is lying in the definitions placed in Exercise 2.

-- We can use the following functions from lecture 2, changing 0 to 1
getRandomInt :: Int -> IO Int
getRandomInt n = getStdRandom (randomR (1,n
.
.
generateForm level = do
                        n <- getRandomInt 6
                        m <- getRandomInt 
.
.
                        3 -> do
                                   frms <- generateForms m (level-1)
                                   return (Dsj frms)

Don't change in all cases 0 into 1.
Well done (=9)