Anonymous user
Count the coins: Difference between revisions
→{{header|Perl 6}}: add entry
(→{{header|Perl 6}}: add entry) |
|||
Line 836:
<pre>%1 = 242
%2 = 13398445413854501</pre>
=={{header|Perl 6}}==
{{works with|niecza|2012-06}}
<lang perl6>sub ways-to-make-change($amount, @coins) {
my @cache = [1 xx @coins];
multi ways($n where $n >= 0, @now [$coin,*@later]) {
@cache[$n][+@later] //= ways($n - $coin, @now) + ways($n, @later);
}
multi ways($,@) { 0 }
ways($amount, @coins);
}
say ways-to-make-change 1_00, [25,10,5,1];
say ways-to-make-change 1000_00, [100,50,25,10,5,1];</lang>
{{out}}
<pre>242
13398445413854501</pre>
=={{header|PicoLisp}}==
| |||