erlang入门系列(4) for循环，尾递归

因为Erlang里的变量只能一次赋值，所以并没有循环语句，只能用递归。所以所谓的Erlang for循环，也是用递归模拟的。看下面的求和代码：

for(Max, Max,Sum) ->
     Sum+Max;
for(First, Max,Sum) ->
     Sum2=Sum+First,
     for(First + 1, Max, Sum2). 

值得注意的是，如果循环次数过多，我们必须使用 尾递归。否则你的内存很快就会用光。尾递归我的理解是，调用了自身后，再没有别的代码要执行，概念上要说清楚还是比较 麻烦，各位意会吧。
下面是一个 非尾递归的示例：

loop() ->
	{From, {rectangle, Width, Ht}} ->
		From ! {self(), Width * Ht},
		loop(),
		someOtherFunc();
	{From, {circle, R}} ->
		From ! {self(), 3.14159 * R * R},
		 loop().

尽管尾递归不用消耗更的内存，然而它的效率仍然让我不敢恭维，我测试过1到100万的求和。用java的for循环实现，几乎是0秒就完成了，而用erlang的尾递归，却花了我33秒。下面是我的测试代码，如果你有更好的erlang实现，还请分享

main(_) ->
	Start = calendar:datetime_to_gregorian_seconds({date(), time()}),
	T=for(1,10000,0),
	End = calendar:datetime_to_gregorian_seconds({date(), time()}),
	io:format("~p ~p~n",[T,End-Start]).
	
for(Max, Max,Sum) ->
     Sum+Max;
for(First, Max,Sum) ->
     Sum2=Sum+First,
     for(First + 1, Max, Sum2).