main :: IO () main = do as <- getArgs mt <- newPureMT let colors = randomRs (lo,hi) mt :: [RGB] print $ zip tx cs where lo = read $ as !! 0 hi = read $ as !! 1 tx = as !! 2
Why is as not visible in the where block? 2008/9/13 Brandon S. Allbery KF8NH <[EMAIL PROTECTED]> > On 2008 Sep 12, at 21:57, Don Stewart wrote: > >> 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? >> > > It's not corrupt; he used UTF-8 symbols. It shows up properly in Mail.app > but doesn't quote right (admittedly I force plaintext). > > -- > brandon s. allbery [solaris,freebsd,perl,pugs,haskell] [EMAIL PROTECTED] > system administrator [openafs,heimdal,too many hats] [EMAIL PROTECTED] > electrical and computer engineering, carnegie mellon university KF8NH > > >
_______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe