Select Code to Download

use strict;
use warnings;
...

7.98023009300232

[ BAD BAD 3 4 5 ... ]       # initial $seqs
[ 1 2 2 2 2 ... ]           # initial $lengths

use strict;
use warnings;
...

6.0809600353241

[ BAD BAD BAD 3 4 5 6 ... ]     # initial $seqs
[ BAD 1 2 BAD 3 BAD BAD ... ]   # initial $lengths

use strict;
use warnings;
...

2.88385105133057