[Haskell-cafe] random colors, stack space overflow, mersenne and mersenne.pure64

[Cetin Sert]

Oh, hi *^o^*

mersenne.pure64
http://sert.homedns.org/lab/colors/var2.hs

mersenne
http://sert.homedns.org/lab/colors/var.hs

the problem seems to be with the definition of colorR in var2.hs

CS

2008/9/13 Don Stewart <dons at galois.com>

> cetin.sert:
> >      random  = color2
> >      randomR = colorR
> >
> >    color2 :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
> >    color2 = colorR (minRGB,maxRGB)
> >
> >    color :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
> >    color s0 = ((r,g,b),s3)
> >      where
>
> ^^^^^^^^^^
>
> There's some corruption in this text. Could you post the file somewhere?
>
> -- Don
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell-cafe/attachments/20080913/2cb98e6f/attachment.htm