module Autolib.Util.Seed where

-- -- $Id$

import System.Random

seed :: Int -> IO ()
seed :: Int -> IO ()
seed Int
n = do
     let nn :: Int
nn = Int
314159 Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
n Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
271828
     StdGen -> IO ()
forall (m :: * -> *). MonadIO m => StdGen -> m ()
setStdGen (StdGen -> IO ()) -> StdGen -> IO ()
forall a b. (a -> b) -> a -> b
$ Int -> StdGen
mkStdGen Int
nn