Select Code to Download

#!/usr/bin/perl
#
...
        print "$t\n";
        --$cnt;
}

$ for J in {1,2,5}0{0,00,000}; do echo $J; perl gen_random_string.pl $
+J ACGTN 15 25 >t.$J; done

#!/usr/bin/perl
#
...
print scalar(@unique), " unique items.\n";
print "$cnt_dup rejected.\n";
print "$end seconds\n";

$ cat t.100 t.100 t.100 > t.300
$ cat t.1000 t.1000 t.1000 > t.3000
...
$ cat t.100 t.300 > t.400
$ cat t.1000 t.3000 > t.4000
$ cat t.10000 t.30000 > t.40000

num      brute
strings  force    Robo1  Robo2
...
  30000           4.493  2.621
  40000           5.866  3.417
  50000                  4.929

# str     Robo2  Notes
------   ------  --------------
...
 20000   11.887  10000 unique
100000   65.224  unique
200000  126.190  100000 unique