基于fibonacci数列的几种编程语言的运算速度比较

所有的程序源码如下:

fib.m (MATLB2010B)

function f=fib(n)
if n==0 || n==1
f=n;
else
f=fib(n-2)+fib(n-1);
end

fib.erl (Erlang 5.8.1)

-module(fib).
-export([test/0]).

test()->
fib(40).

fib(0) -> 1;
fib(1) -> 1;
fib(N) -> fib(N-1) + fib(N-2).

fib.py (python2.6)

# enable psyco compiler
import psyco
psyco.full()

def fib(n):
if n == 0 or n == 1:
return n
else:
return fib(n-1) + fib(n-2)

print fib(40)

mlton_fib.sml (mlton20100608)

fun fib (n) = if n=0 then 0 else if n=1 then 1 else fib(n-2) + fib(n-1);
val _ =(
print(Int.toString(fib 40)),
print "/n"
);

fib1.hs (haskell platform 2010.2.0.0)

fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n-2) + fib(n-1)

main =
print (fib 40)

fib2.hs (haskell platform 2010.2.0.0)

import Control.Parallel

fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = l `pseq` r `pseq` l+r
where
l = fib (n-1)
r = fib (n-2)

main =
print (fib 40)

fib.fs (f#2.0)

let rec fib n =
if n=0 then 0
elif n=1 then 1
else fib(n-2)+fib(n-1)

let x=fib 40

fib.cpp (gcc4.4)

#include <cstdio>
int fib(int n)
{
if (n < 2) {
return 1;
}
return fib(n - 2) + fib(n - 1);
}

int main(int argc, char ** argv) {
printf("Fib(%d): %d/n", 40, fib(40));
return 0;
}

test_fib.m

%========================= fibonacii ============================
%% MATLAB
disp('MATLAB')
tic,fib(29),toc %注意是29, 就已经很慢了, 下面都是算到40

%% Erlang
disp('Erlang')
!erlc +native fib.erl
tic,eval('!erl -noshell -s fib test -s init stop'),toc

%% python
disp('python')
tic,eval('!fib.py'),toc

%% SML (mlton)
!D:/MLton/bin/mlton.bat -verbose 0 mlton_fib.sml
disp('SML(mlton)')
tic,eval('!mlton_fib.exe'),toc

%% haskell(ghc)
disp('haskell(ghc) *1*')
!ghc --make -O2 fib1.hs -o hs_fib1.exe
tic,eval('!hs_fib1.exe'),toc
disp('haskell(ghc) *2*')
!ghc --make -O2 fib2.hs -o hs_fib2.exe
tic,eval('!hs_fib2.exe'),toc

%% F#
!"C:/Program Files/Microsoft F#/v4.0/fsc" fib.fs -o fs_fib.exe
tic,eval('!fs_fib.exe'),toc

%% c++
disp('c++')
!g++ -O3 fib.cpp -o c++_fib.exe
tic,eval('!c++_fib.exe'),toc

在MATLAB命令行下运行, 计算机配置Windows XP SP3, Intel Core 2 Duo CPU T5870 2.0GHZ, RAM3.0G(某一次的测试结果):

>> test_fib
MATLAB
Elapsed time is 12.714680 seconds.
Erlang
Elapsed time is 16.976639 seconds.
python
Elapsed time is 7.685962 seconds.
SML(mlton)
Elapsed time is 3.277170 seconds.
haskell(ghc) *1*
Elapsed time is 2.436861 seconds.
haskell(ghc) *2*
Elapsed time is 2.547725 seconds.
F#
Elapsed time is 3.312573 seconds.
c++
Elapsed time is 1.132945 seconds.