谁会算硬币

patagonia2

• 1 美元等于100 美分。
• 硬币有 1 美分，5 美分，10 美分，25 美分四种。
  

取一个小于1 美元的金额，计算可以换成 最少 多少枚硬币。

0.76 美元换算结果
应该是 3 枚 25 美分，1 枚1 美分。

唉。郁闷啊！想不出什么优雅的写法。
再次感谢！！

patagonia2

想不出什么优雅的写法。

1. %-module(e).
   
2. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).
   
3. 
   
4. chan ([H|T], B, S) -> chan (T, [S div H|B], S rem H);
   
5. chan ([], B, _)    ->
   
6.     COUNT = lists:sum(B),
   
7.     RESUL = lists:reverse(B),
   
8.     ?PP (COUNT),
   
9.     ?PP (RESUL).
   
10. 
    
11. main (_) ->
    
12.     C = [ 25, 10, 5, 1 ],
    
13.     S = 76,
    
14.     chan (C, [], S),
    
15. 
    
16. halt().
    

复制代码

求大圣优雅的写法。

patagonia2

应该是
这样的结果

COUNT = 4
RESUL = [3,0,0,1]