Fallen/Util.hs


1
2
3
4
5
6
7
8

module Fallen.Util
( randomSetElement
) where
  import System.Random
  
  randomSetElement set = do
    index <- randomRIO (0, length set - 1)
    return $ set !! index