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

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. 
    

復(fù)制代碼

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

復(fù)制代碼

q1208c

Slow 好象多了調(diào)用， 所以會慢很多。

patagonia2

回復(fù) 2# q1208c


    多謝大神指點

q1208c

回復(fù) 3# patagonia2


哈哈， 我只是前幾天正好買了本新書。   

patagonia2

回復(fù) 4# q1208c


    請問大神
哪一本?

q1208c

回復(fù) 5# patagonia2

"Erlang程序設(shè)計“第二版
   

patagonia2

回復(fù) 6# q1208c


          謝謝大神指導。