[perl #109586] .pick on a large range needs more entropy

# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #109586]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=109586 >


17:26 < TimToady> nom: say (^2**64).pick.fmt('%64b')
17:26 <+p6eval> nom ce5cca:
OUTPUT«1010100001010011111100101101011101010001000000010000000000000000␤»

17:27 < TimToady> pick from a large range might need to generate more
                   entropy than a single standard rand call provides; note
                   the trailing 0's above


Repeated execution shows that it indeed always ends with many 0's. So, 
not random enough. http://xkcd.com/221/ applies :-)

• [perl #109586] .pick on a large range needs more entropy by Moritz Lenz