Rosetta Code

Count the coins/0-1: Difference between revisions

Page Discussion

Count the coins/0-1 (view source)

Revision as of 17:42, 6 January 2021

6 bytes removed ,  3 years ago
→‎{{header|Perl}}
No edit summary
Line 35:
countcoins( 6, [1, 2, 3, 4, 5] );
countcoins( 6, [1, 1, 2, 3, 3, 4, 5] );
#countcoins( 40, [1, 2, 3, 4, 5, 5, 5, 5, 15, 15, 10, 10, 10, 10, 25, 100] );
 
my $count;
 
sub countcoins
Line 41 ⟶ 43:
my ($want, $coins) = @_;
print "\nsum $want coins @$coins\n";
$count = 0;
count($want, [], 0, $coins);
print "Number of ways: $count\n";
}
 
Line 47 ⟶ 51:
{
my ($want, $used, $sum, $have) = @_;
if( $sum == $want ) { print "used @$used\n"count++ }
elsif( $sum > $want or @$have == 0 ) {}
else
Line 56 ⟶ 60:
}
}</lang>
Third case not shown because it's too large.
{{out}}
<pre>
sum 6 coins 1 2 3 4 5
usedNumber 1of 2ways: 3
used 1 5
used 2 4
 
sum 6 coins 1 1 2 3 3 4 5
Number of ways: 9
used 1 1 4
 
used 1 2 3
sum 40 coins 1 2 3 4 5 5 5 5 15 15 10 10 10 10 25 100
used 1 2 3
Number of ways: 464
used 1 5
used 1 2 3
used 1 2 3
used 1 5
used 2 4
used 3 3
</pre>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/306325"