On Mon, Mar 17, 2008 at 1:54 PM, Thomas Schilling <
nominolo@googlemail.com> wrote:
On 17 mar 2008, at 14.37, rodrigo.bonifacio wrote:
> Hi all,
>
> Is it possible to define a limit for the size of children list bellow?
>
> I've tried:
>
> children <- resize (10 (listGen featureGenNormal))
>>
You are calling a number as a function.
Also, listGen has to use the size argument. Try something like (not
tested):
listGen =
sized (\maxSize -> do
n <- arbitrary
x <- g
xs <- frequency [ (1, return []), (n, listGen g) ]
return (x:xs)
In retrospect, this function isn't very good at all, because it never generates the empty list... Something like this is probably better (untested):
listGen g = sized (\maxSize -> do
count <- choose (0, maxSize - 1)
replicateM count g )