Select Code to Download

#!/usr/bin/perl -w

...
        ($tot=0,map{$tot+=$_}@counts)[-1]/@counts, "\n";
    return 0;
}

 4987 4974 5022 5012 5078 4967 4996 5007 4998 4990
Fisher-Yates: 5003.1
 4368 4542 4558 4529 4586 4601 4581 4566 4549 4535
Tye hash: 4541.5