3 Jan
2014
3 Jan
'14
5:57 p.m.
On 14-01-03 11:28 AM, Rob Arthan wrote:
roll n = take n . randomRs ('1', '6') . mkStdGen $ n
However, this produces a string beginning with a '6' for 0 <= n <= 53667.
It seems to me such small numbers do not have enough entropy to be worthy seeds to begin with. Say, in the 64-bit binary form of 53667, how many consecutive 0's are there?