erlang 函數作爲參數

-module(test).
-compile(export_all).

test() ->
	List = testcore(1,[]),
	lists:foldl(fun fn_sum/2,0,List).

fn_sum(Element, PreSum) ->
	Element+PreSum.

testcore(10, List) ->
	List;
testcore(Value, List) ->
	testcore(Value+1, [Value|List]).