On Tue, Dec 22, 2009 at 1:16 PM, Scott Turner <1hask...@pkturner.org> wrote:
>> In haskell, i just use the following function to get the random number. It
>> seems i donot need to set the seed of random number generator manually?
>>
>> rollDice :: Int -> IO Int
>> rollDice n = randomRIO(1,n)
>
> T
On Monday 21 December 2009 20:37:30 zaxis wrote:
> In erlang, first i use the following function to set the seed:
> new_seed() ->
> {_,_,X} = erlang:now(),
> {H,M,S} = time(),
> H1 = H * X rem 32767,
> M1 = M * X rem 32767,
> S1 = S * X rem 32767,
> put(random_seed, {H1,M1,S
In erlang, first i use the following function to set the seed:
new_seed() ->
{_,_,X} = erlang:now(),
{H,M,S} = time(),
H1 = H * X rem 32767,
M1 = M * X rem 32767,
S1 = S * X rem 32767,
put(random_seed, {H1,M1,S1}).
then use random:uniform/1 to get the random number.
In ha