Select Code to Download

seed : no.of picks before repeat
89 : 12
...
4202 : 20
-- More  --

#! perl -slw
use strict;
...
    ++$hash{ int rand 100000 } == 2 and print "$i : ", scalar keys %ha
+sh
        while keys %hash < 30;
}