Select Code to Download

use strict;
use warnings;
...
    return $metric/@series;
}

sub mix {
        my $bag = shift;
        my @str = sort { $bag->{$a} <=> $bag->{$b} } keys %$bag;
...
        return \@distribution;
}

sub evaluate {
        my $cand   = shift;
...
};

evaluate( $candidates, $bags );

                Monk   Better:higher    Better:lower Result
------------------------------------------------------------
...
                 hdb          222.75            0.44 ACBACBACBACBACBAC
+BACBACBACBACB
               kcott          224.75            0.44 ABCABCABCABCABCCB
+ACBACBACBACBA
            kennethk          222.75            0.44 CBACBACBACBACBACB
+ACBACBACBACBA