Test = fun(X) -> (fun(Y) -> Y * X end) end.
Test(3). //定义了外层的fun(X).
Result = Test(3).
Result(2). //定义了fun(Y).
%shop.erl
cost(apple) ->1;
cost(orange) ->2;
cost(peach) ->3;
cost(pear) ->4;
cost(banana) ->5.
%shop2.erl
-import(lists,[map/2,sum/1]).
total(L) -> sum(map(fun(What) -> shop:cost(What) end,L)).
%fun(What) -> shop:cost(What) end. shop:cost(What) 作为函数的返回值。
%map(F,L) 这里的F指的是上面的一句话。
%sum(List)。 这里的List = map(F,L).
erlang技术2014 3 28 复合函数,布布扣,bubuko.com
原文：http://www.cnblogs.com/bruce-Lv/p/3630672.html