15 lines
329 B
Text
15 lines
329 B
Text
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
|