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?