dice.hs

import System.Random

dice :: StdGen -> Int
dice gen = num
    where (num, _) = diceWithRandomGen gen

diceWithRandomGen :: StdGen -> (Int, StdGen)
diceWithRandomGen = randomR (1, 6)

threeTimesDiceRoll :: StdGen -> (Int, Int, Int)
threeTimesDiceRoll gen = (first, second, third)
    where (first,  firstGen)  = diceWithRandomGen gen
          (second, secondGen) = diceWithRandomGen firstGen
          (third,  _)         = diceWithRandomGen secondGen

main :: IO ()
main = do
        gen <- getStdGen
        print $ dice gen
        print $ threeTimesDiceRoll gen