Select Code to Download

    #! /usr/bin/env perl6
    use v6;
...
            ($pos+1).fmt("%2d"),
            %score{@labels}.map( * / %score.total )».fmt("%.2f")
    }

           A       B       C       D
    1      0.75    0.25    0.00    0.00
...
    3      0.25    0.50    0.25    0.00
    4      0.00    1.00    0.00    0.00
    5      0.00    0.25    0.50    0.25

    my @data = < AABBC BAABC AABBD AECBBF >;

           A       B       C       D       E       F
    1      0.75    0.25    0.00    0.00    0.00    0.00
...
    4      0.00    1.00    0.00    0.00    0.00    0.00
    5      0.00    0.25    0.50    0.25    0.00    0.00
    6      0.00    0.00    0.00    0.00    0.00    1.00