Anonymous user
McNuggets problem: Difference between revisions
→{{header|Perl}}: Use standard arguments, change a couple helper functions.
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: add libheader) |
(→{{header|Perl}}: Use standard arguments, change a couple helper functions.) |
||
Line 437:
{{trans|Perl 6}}
{{libheader|ntheory}}
<lang perl>use
sub Mcnugget_number {
return 'No maximum' if
my $min =
my @meals;
my @min;
Line 457 ⟶ 456:
forperm {
$meals[
$s[$_[0]] * $counts->[0]
+ $s[$_[1]] * $counts->[1]
+ $s[$_[2]] * $counts->[2]
] = 1;
} @s;
|