Find minimum number of coins that make a given value: Difference between revisions
Find minimum number of coins that make a given value (view source)
Revision as of 16:59, 10 September 2021
, 2 years agoAdded Perl
SqrtNegInf (talk | contribs) (Added Perl) |
|||
Line 448:
Total: 11</pre>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
my @denominations = <200 100 50 20 10 5 2 1>;
sub change {
my $n = shift;
my @a;
push(@a, int $n/$_) and $n %= $_ for @denominations;
@a
}
my @amounts = change 988;
for (0 .. $#amounts) {
printf "%1d * %3d\n", $amounts[$_], $denominations[$_]
}</lang>
{{out}}
<pre>4 * 200
1 * 100
1 * 50
1 * 20
1 * 10
1 * 5
1 * 2
1 * 1</pre>
=={{header|Phix}}==
| |||