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 02:48, 24 December 2021
, 2 years agoAdd Red
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(Add Red) |
||
Line 967:
0 × 2
0 × 1</pre>
=={{header|Red}}==
<lang rebol>Red[]
value: 988
foreach denomination [200 100 50 20 10 5 2 1][
quantity: to-integer value / denomination
unless 0 = quantity [print [quantity "*" denomination]]
value: value % denomination
]</lang>
{{out}}
<pre>
4 * 200
1 * 100
1 * 50
1 * 20
1 * 10
1 * 5
1 * 2
1 * 1
</pre>
=={{header|REXX}}==
| |||