Select Code to Download

--- Init ...
 ... completed: 2000 snippets from 200 to 400 of 6000 long DNA
Check_all      took 1.206    Filtered: 287 Ratio: 6.96864111498258
...
Check_all      took 4.601    Filtered: 1977 Ratio: 1.01163378856854
Check_longest      took 4.651    Filtered: 1977 Ratio: 1.0116337885685
+4
Faster: 0.989378646160973

#! perl -slw
use strict;
...
  print STDERR " ... completed: $num snippets from $min to $max of $le
+ngth_dna long DNA";
}