
13 Sep
2008
13 Sep
'08
2:05 a.m.
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
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