er好強大啊

patagonia2

比較下 tak
er 0.17 秒 真的快了不少 不科學(xué)啊
perl 17 秒
python 6.5 秒

er

1. %-module(e).
   
2. -module(tak).
   
3. -mode(native).
   
4. -define(P, io:format).
   
5. -export([tak/3, bm/0, bm_testcase/0]).
   
6. 
   
7. tak(X, Y, Z) ->
   
8.   if
   
9.     Y >= X -> Z;
   
10.     true ->
    
11.       tak(
    
12.         tak(X - 1, Y, Z),
    
13.         tak(Y - 1, Z, X),
    
14.         tak(Z - 1, X, Y)
    
15.       )
    
16.   end
    
17. .
    
18. 
    
19. bm() ->
    
20.   lists:foreach(
    
21.     fun(_) ->
    
22.       {Time, _} = timer:tc(tak, bm_testcase, []),
    
23.       TimeSec = Time / 1000000,
    
24.       ?P("~p~n", [TimeSec])
    
25.     end,
    
26.     lists:seq(1, 5)
    
27.   )
    
28. .
    
29. 
    
30. bm_testcase() ->
    
31.   lists:foreach(
    
32.     fun(_) ->
    
33.       tak:tak(24, 16, 8)
    
34.     end,
    
35.     lists:seq(1, 10)
    
36.   )
    
37. .
    
38. 
    
39. 
    
40. main(_) ->
    
41.     bm(),
    
42. halt().
    

復(fù)制代碼

python

1. use Time::HiRes qw(time);
   
2. 
   
3. $|++;
   
4. 
   
5. bm_tak(5);
   
6. 
   
7. sub bm_tak {
   
8.     my $n = shift;
   
9. 
   
10.     for ( 0 .. $n ) {
    
11.         my ( $i, $x ) = ( 0, time );
    
12.         while ( $i < 10 ) {
    
13.             tak( 24, 16, 8 );
    
14.             $i++;
    
15.         }
    
16.         print time - $x . "\n";
    
17.     }
    
18. }
    
19. 
    
20. sub tak {
    
21.     my ( $x, $y, $z ) = @_;
    
22. 
    
23.     if ( $y >= $x ) {
    
24.         return $z;
    
25.     }
    
26.     else {
    
27.         return tak(
    
28.             tak( $x - 1, $y, $z ),
    
29.             tak( $y - 1, $z, $x ),
    
30.             tak( $z - 1, $x, $y )
    
31.         );
    
32.     }
    
33. }
    
34. 
    
35. 
    

復(fù)制代碼

perl

1. 
   
2. import time
   
3. 
   
4. 
   
5. 
   
6. def tak(x, y, z):
   
7.     if y >= x: return z
   
8.     return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y))
   
9. 
   
10. 
    
11. for k in range(0, 5):
    
12.     t = time.time()
    
13.     i = 0
    
14.     while i < 10:
    
15.         tak(24, 16, 8)
    
16.         i += 1
    
17.     print("%.02f" % (time.time() - t))
    

復(fù)制代碼

patagonia2

真的不科學(xué)啊

patagonia2

不科學(xué)啊
真的不科學(xué)啊

er  0.17 秒
perl   17 秒