generating a random vector

gistfile1.hs

-- | Main entry point to the application.

module Main where

import qualified Data.Vector.Unboxed as V
import           Control.Monad
import           Control.Monad.Random
import           System.Random

foovec :: V.Vector Int
foovec = V.singleton 5

randvec :: MonadRandom m => m (V.Vector Int)
randvec = V.replicateM 5 $ getRandomR (0, 7)

-- | The main entry point.
main :: IO ()
main = do
  putStrLn $ show $ foovec
  seed <- newStdGen 
  putStrLn $ show $ evalRand randvec seed