random:seed/0

用默认值产生随机数种子

用法：

seed() -> ran().

内部实现：

-spec seed0() -> ran().

seed0() ->
    {3172, 9814, 20125}.

-spec seed_put(ran()) -> 'undefined' | ran().
     
seed_put(Seed) ->
    put(random_seed, Seed).

-spec seed() -> ran().

seed() ->
    case seed_put(seed0()) of
	undefined -> seed0();
	{_,_,_} = Tuple -> Tuple
    end.	

使用进程字典里的默认(固定的)值作为随机数生成的种子, 并且返回随机种子状态.