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 21:26, 10 August 2021
, 2 years ago→{{header|Raku}}: Add a Raku example
m (→{{header|Phix}}: added number of coins used.) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
Line 228:
1 * 1
</pre>
=={{header|Raku}}==
Since unit denominations are possible, don't bother to check to see if an exact pay-out isn't possible.
<lang perl6>my @denominations = 200, 100, 50, 20, 10, 5, 2, 1;
sub change (Int $n is copy where * >= 0) { gather for @denominations { take $n div $_; $n %= $_ } }
for 988, 1307, 37511, 0 -> $amount {
say "\n$amount:";
printf "%d × %d\n", |$_ for $amount.&change Z @denominations;
}</lang>
{{out}}
<pre>988:
4 × 200
1 × 100
1 × 50
1 × 20
1 × 10
1 × 5
1 × 2
1 × 1
1307:
6 × 200
1 × 100
0 × 50
0 × 20
0 × 10
1 × 5
1 × 2
0 × 1
37511:
187 × 200
1 × 100
0 × 50
0 × 20
1 × 10
0 × 5
0 × 2
1 × 1
0:
0 × 200
0 × 100
0 × 50
0 × 20
0 × 10
0 × 5
0 × 2
0 × 1</pre>
=={{header|REXX}}==
|