为什么名字是慢,那么它是慢

patagonia2

1. %-module(fs).
   
2. -mode(native).
   
3. -define(P, io:format).
   
4. 
   
5. fast(N) when N < 2 -> N;
   
6. fast(N) -> fast(N - 1) + fast(N - 2).
   
7. 
   
8. main(_) ->
   
9.     Num = 40,
   
10.     Slow = fun F(N) when N < 2 -> N;
    
11.         F(N) -> F(N - 1) + F(N - 2) end,
    
12. 
    
13.     {Time1, A1} = timer:tc(fun fast/1, [Num]),
    
14.     ?P ("fast ~p => time = ~p ~n",[A1, Time1 / 1000000]),
    
15. 
    
16.     {Time2, A2} = timer:tc(Slow, [Num]),
    
17.     ?P ("Slow ~p => time = ~p ~n",[A2, Time2 / 1000000]),
    
18. 
    
19.     halt(1).
    
20. 
    

复制代码

1. fast 102334155 => time = 3.251176
   
2. Slow 102334155 => time = 20.973105
   

复制代码

q1208c

Slow 好象多了调用， 所以会慢很多。

patagonia2

回复 2# q1208c


    多谢大神指点

q1208c

回复 3# patagonia2


哈哈， 我只是前几天正好买了本新书。   

patagonia2

回复 4# q1208c


    请问大神
哪一本?

q1208c

回复 5# patagonia2

"Erlang程序设计“第二版
   

patagonia2

回复 6# q1208c


          谢谢大神指导。