06/06/21 23:31:10
>>243
ありがとうございます。
おおボケかましてました orz
↓で動きました。
chg::[Int] Int->Int
chg _ 0 = 1
chg [] _ = 0
chg denoms amount
| amount < hd denoms = chg (tl denoms) amount
| otherwise = chg (tl denoms) amount + chg denoms (amount- hd denoms)
06/06/21 23:31:10
>>243
ありがとうございます。
おおボケかましてました orz
↓で動きました。
chg::[Int] Int->Int
chg _ 0 = 1
chg [] _ = 0
chg denoms amount
| amount < hd denoms = chg (tl denoms) amount
| otherwise = chg (tl denoms) amount + chg denoms (amount- hd denoms)