表的应用: 找零钱

    这个任务是将一定的钱数用一些硬币来表达. 比如8分钱, 用5分, 2分, 1分的硬币来组合, 8=5+2+1=5+1+1+1=2+2+2+2=...等等. 网上可以查到很多贪心算法的实现, 这里采用递归找到所有的组合. 使用Erlang语言实现.

-module(me).
-compile(export_all).

change(Coinvals,Amount) -> change1([],Coinvals,Amount).
change1(Coins, _Coinvals, 0) -> [Coins];
change1(_Coins, [], _Amount) -> [];
change1(Coins, [C|Coinvals], Amount) ->
    if
        Amount<0 -> [];
        true ->
            change1([C|Coins],[C|Coinvals], Amount-C) ++
                change1(Coins, Coinvals, Amount)
    end.

 

1> c(me.erl).
{ok,me}
2> me:change([5,2,1],8).
[[1,2,5],
 [1,1,1,5],
 [2,2,2,2],
 [1,1,2,2,2],
 [1,1,1,1,2,2],
 [1,1,1,1,1,1,2],
 [1,1,1,1,1,1,1,1]]