Select Code to Download

# PWC 100
use v5.12;
...
__DATA__
[[1],[2,4],[6,4,9],[5,1,7,2]] 8   [1,2,4,1]
[[9],[1,6],[7,8,2],[5,8,2,3]] 19  [9,6,2,2]

C:/Perl_524/bin\perl.exe -w d:/tmp/pm/pwc100.pl 
ok 1 - cost: 8
...
]
1..5