random.hs

import System.Random

threeCoins :: StdGen -> (Bool, Bool, Bool)
threeCoins gen =
  let (firstCoin, newGen) = random gen
      (secondCoin, newGen') = random newGen
      (thirdCoin, _) = random newGen'
  in (firstCoin, secondCoin, thirdCoin)

-- threeCoins (mkStdGen 100)
-- (True,False,False)

randoms' :: (RandomGen g, Random a) = g -> [a]
randoms' gen = let (value, newGen) = random gen in vlue : randoms' newGen

finiteRandoms :: (RandomGen g, Random a, Num n) => n -> g -> ([a], g)
finiteRandoms 0 gen = []
finiteRandoms n gen =
  let (value, newGen) = random gen
      (restOfList, finalGen) = fomoteRamdoms (pred n) newGen
  in (valu: restOfList, finalGen)