Select Code to Download

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,
}