1 uniform() -> 2 {A1, A2, A3} = case get(random_seed) of 3 undefined -> seed0(); 4 Tuple -> Tuple 5 end, 6 B1 = (A1*171) rem 30269, 7 B2 = (A2*172) rem 30307, 8 B3 = (A3*170) rem 30323, 9 put(random_seed, {B1,B2,B3}),10 R = A1/30269 +... Read More
