aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Knapsack-problem-Bounded/Perl-6/knapsack-problem-bounded.pl6
View file

@ -8,15 +8,15 @@ multi sub pokem ([$i, *@rest], $w, $v = 0) {
my @skip = pokem @rest, $w, $v;
if $w >= $i.weight { # next one fits
my @put = pokem @rest, $w - $i.weight, $v + $i.unit;
return (%cache{$key} = @put, $i.name).list if @put[0] > @skip[0];
return (%cache{$key} = |@put, $i.name).list if @put[0] > @skip[0];
}
return (%cache{$key} = @skip).list;
return (%cache{$key} = |@skip).list;
}
}
my $MAX_WEIGHT = 400;
my @table = map -> $name, $weight, $unit, $count {
KnapsackItem.new( :$name, :$weight, :$unit ) xx $count;
my @table = flat map -> $name, $weight, $unit, $count {
KnapsackItem.new( :$name, :$weight, :$unit ) xx $count;
},
'map', 9, 150, 1,
'compass', 13, 35, 1,
@ -39,7 +39,7 @@ my @table = map -> $name, $weight, $unit, $count {
'sunglasses', 7, 20, 1,
'towel', 18, 12, 2,
'socks', 4, 50, 1,
'book', 30, 10, 2,
'book', 30, 10, 2
;
my ($value, @result) = pokem @table, $MAX_WEIGHT;
@ -49,6 +49,6 @@ my ($value, @result) = pokem @table, $MAX_WEIGHT;
say "Value = $value";
say "Tourist put in the bag:";
say " # ITEM";
for %hash.kv -> $item, $number {
say " $number $item";
for %hash.sort -> $item {
say " {$item.value} {$item.key}";
}