2
这段代码将一笔钱作为Int
并返回一个元组列表,表示所需的最小数量的必要账单或硬币,以达到该总额。在哈斯克尔中分解守卫
purse :: Int -> [(String, Int)]
purse x
| x == 0 = [("$0", 0)]
| div x 200 >= 1 = before x 200 : after x 200
| div x 100 >= 1 = before x 100 : after x 100
| div x 50 >= 1 = before x 50 : after x 50
| div x 20 >= 1 = before x 20 : after x 20
| div x 10 >= 1 = before x 10 : after x 10
| div x 5 >= 1 = before x 5 : after x 5
| div x 2 >= 1 = before x 2 : after x 2
| div x 1 >= 1 = before x 1 : after x 1
where before x y = ("$" ++ show x, div x y)
after x y = if mod x y > 0
then purse (mod x y)
else []
例如,purse 18
将返回:
[("$10", 1), ("$5", 1), ("$2", 1), ("$1", 1)]
我的问题是:可能这个系列守卫被移除/工厂化函数只是基于票据/硬币的列表上工作,像where bills = [200, 100, 50, 20...]
?
在Python我会做这样的事情(没有确切的工作解决方案,但你的想法):
purse(x):
for bill in [200, 100, 50, 20, 10, 5, 2, 1]:
if x/bill >= 1:
return [x // bill] + purse(x % bill)
那'mapAccumL'解决方案的岩石,但我认为递归一个是更好地理解。为什么不出现这两个? – leftaroundabout