Help for this page
sub badRand($) { rand() < 0.5 ? 0 : rand( $_[0] ) }
[549637, 50008, 50261, 50195, 50365, 49871, 50000, 49692, 49768, 50203 +]
[ 521654, 20747, 20716, 20614, 20914, 20740, 20906, 20580, 20625, 2107 +7, 20736, 20912, 20835, 20820, 20958, 20818, 20866, 20818, 20969, 206 +46, 20749, 20953, 20454, 20893, ]
{ ABCD => 67436, ... DCAB => 67666, DCBA => 68408, }
#! perl -slw use strict; ... DCAB => 67666, DCBA => 68408, }