谁会算硬币
[*]1 美元等于100 美分。
[*]硬币有 1 美分,5 美分,10 美分,25 美分四种。
取一个小于1 美元的金额,计算可以换成 最少 多少枚硬币。
0.76 美元换算结果
应该是 3 枚 25 美分,1 枚1 美分。
唉。郁闷啊!想不出什么优雅的写法。
再次感谢!! 想不出什么优雅的写法。{:yxh110:}%-module(e).
-define (PP (V), io:format ("~s = ~p~n", [??V, V])).
chan (, B, S) -> chan (T, , S rem H);
chan ([], B, _) ->
COUNT = lists:sum(B),
RESUL = lists:reverse(B),
?PP (COUNT),
?PP (RESUL).
main (_) ->
C = [ 25, 10, 5, 1 ],
S = 76,
chan (C, [], S),
halt().
求大圣优雅的写法。{:yxh79:} 应该是
这样的结果
COUNT = 4
RESUL =
页:
[1]