lottery4

uniform() ->
    {A1, A2, A3} = case get(random_seed) of
               undefined -> seed0();
               Tuple -> Tuple
           end,
    B1 = (A1*171) rem 30269,
    B2 = (A2*172) rem 30307,
    B3 = (A3*170) rem 30323,
    put(random_seed, {B1,B2,B3}),
    R = A1/30269 + A2/30307 + A3/30323,
    R - trunc(R).

uniform(N) when is_integer(N), N >= 1 ->
    trunc(uniform() * N) + 1.