Skip to content

Instantly share code, notes, and snippets.

@jpaton

jpaton/infinite_random_ints.hs

Last active August 29, 2015 13:57
Show Gist options
  • Save jpaton/9800416 to your computer and use it in GitHub Desktop.
Save jpaton/9800416 to your computer and use it in GitHub Desktop.
Download ZIP
Generate a list of random things
Raw
infinite_random_ints.hs
newRandoms :: Random n => IO([n])
newRandoms = do
gen <- newStdGen
let initial = random gen -- :: (n, StdGen)
pairs = initial : map (random . snd) pairs -- :: [(n, StdGen)]
mkRandomInts = map fst pairs -- :: [n]
return mkRandomInts
@jpaton
Copy link
Author

jpaton commented Mar 27, 2014

When I uncomment those type annotations, GHC complains, and I don't understand why.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment