Count the coins: Difference between revisions

=={{header|Maple}}==

Straightforward implementation with power series. Not very efficient for large amounts.

<lang maple>assume(p::posint,abs(x)<1):

coin:=unapply(sum(x^(p*n),n=0..infinity),p):

ways:=(amount,purse)->coeff(series(mul(coin(k),k in purse),x,amount+1),x,amount):

ways(100,[1,5,10,25]);

# 242

ways(1000,[1,5,10,25,50,100]);

# 2103596

ways(10000,[1,5,10,25,50,100]);

# 139946140451

ways(100000,[1,5,10,25,50,100]);

# 13398445413854501</lang>