Select Code to Download

#! perl -slw
use strict;
...
C       8        19
D       8        17
E       10       20

C:\test>1147022.pl
{ A => [6, 16], B => [7, 14], C => [8, 19], D => [8, 17], E => [10, 20
+] }
...
[E A C] => cost:24 value:55
[E C A] => cost:24 value:55
Best: E C A => 55

C:\test>1147022.pl
{ A => [6, 16], B => [7, 14], C => [8, 19], D => [8, 17], E => [10, 20
+] }
...
[C C D] => cost:24 value:55
[C C C] => cost:24 value:57
Best: C C C => 57