Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    use List::Util 'sum';
    ...
    
    pp gen( { A => 4, B => 2, C => 3, D => 1 } );
    pp gen( { A => 5, B => 4, C => 3, D => 2, E => 1 } );
    
  2. or download this
    ["A", "C", "B", "A", "D", "C", "A", "B", "C", "A"]
    ["A" .. "D", "A", "B", "E", "A", "C", "B", "A", "D", "C", "B", "A"]
    
  3. or download this
    use strict;
    use warnings;
    use List::Util 'sum';
    ...
    print measure("A", "C", "B", "A", "D", "C", "A", "B", "C", "A"), "\n";
    print measure("A", "C", "B", "A", "C", "D", "A", "B", "C", "A"), "\n";
    print measure("A", "A", "A", "A", "B", "B", "C", "C", "C", "D"), "\n";
    
  4. or download this
    0.37
    0.37
    3.45