System.Random ってどんな乱数法なんだ？
ということを書いたのだが、今更ながらちょっと本当なのかどうなのかが気になっている。 >
stdNext (StdGen s1 s2) = (z', StdGen s1'' s2'')
where z' = if z %lt; 1 then z + 2147483562 else z
z = s1'' - s2''
k = s1 `quot` 53668
s1' = 40014 * (s1 - k * 53668) - k * 12211
s1'' = if s1' %lt; 0 then s1' + 2147483563 else s1'
k' = s2 `quot` 52774
s2' = 40692 * (s2 - k' * 52774) - k' * 3791
s2'' = if s2' %lt; 0 then s2' + 2147483399 else s2'
>