make fibonacchi function default main

up1 · Dec 3, 2009 · 24d492a · 24d492a
1 parent 9a3f61b
commit 24d492a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/main/erl/fib.erl b/src/main/erl/fib.erl
@@ -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),