Find minimum number of coins that make a given value: Difference between revisions
Content added Content deleted
m (→{{header|Julia}}: typo) |
(Add Factor) |
||
Line 15: | Line 15: | ||
<br><br> |
<br><br> |
||
=={{header|Factor}}== |
|||
{{works with|Factor|0.99 2021-06-02}} |
|||
<lang factor>USING: assocs kernel math math.order prettyprint sorting ; |
|||
: make-change ( value coins -- assoc ) |
|||
[ >=< ] sort [ /mod swap ] zip-with nip ; |
|||
988 { 1 2 5 10 20 50 100 200 } make-change .</lang> |
|||
{{out}} |
|||
<pre> |
|||
{ |
|||
{ 200 4 } |
|||
{ 100 1 } |
|||
{ 50 1 } |
|||
{ 20 1 } |
|||
{ 10 1 } |
|||
{ 5 1 } |
|||
{ 2 1 } |
|||
{ 1 1 } |
|||
} |
|||
</pre> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |