Permalink
Browse files

make fibonacchi function default main

  • Loading branch information...
1 parent 9a3f61b commit 24d492acbc3ff1d0059afcfb7c1890e9f062fa16 @krestenkrab krestenkrab committed Dec 3, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/main/erl/fib.erl
View
@@ -54,11 +54,11 @@ makeList(N) -> [N,makeList(N-1)].
runLength(_,N) when N==0 -> done;
runLength(L,N) -> tlength(L), runLength(L,N-1).
-main() ->
+main2() ->
List = makeList(2000),
io:format("time=~w~n", [timer:tc(fib,runLength,[List,1000000])]).
-main2() ->
+main() ->
time(fibo3,10),
time(fibo3,100),
time(fibo3,1000),

0 comments on commit 24d492a

Please sign in to comment.