测量函数执行时间

很多时候你需要测量某个函数的执行时间，从而进行优化。

在erlang中，通过timer:tc/3可以很方便的获取某个函数的执行时间：

tc(Module, Function, Arguments) -> {Time, Value}

Types Module = Function = atom()
Arguments = [term()]
Time = integer() in microseconds
Value = term()

返回值中Time表示函数消耗时间，单位为ms。
有些时候，我们需要某个函数的执行多次，从而更准确的获取函数的执行时间，我们可以书写这样的函数：

-module(test_avg).
-compile(export_all).

tc(M, F, A, N) when N > 0 ->
    L = test_loop(M, F, A, N, []),
    Len = length(L),
    LSorted = lists:sort(L),
    Min = lists:nth(1, LSorted),
    Max = lists:nth(Len, LSorted),
    Med = lists:nth(round(Len/2), LSorted),
    Avg = round(lists:foldl(fun(X, Sum) ->
				    X + Sum end,
			    0,
			    LSorted)/Len),
    io:format("Range:~b - ~b mics~n"
	      "Median:~b mics ~n"
	      "Average:~b mics ~n",
	      [Min, Max, Med, Avg]),
    Med.

test_loop(_M, _F, _A, 0, List) ->
    List;
test_loop(M, F, A, N, List) ->
    {T, _R} = timer:tc(M, F, A),
    test_loop(M, F, A, N-1, [T|List]).

这样，我们就可以获取某个函数执行多次的最少消耗时间，最大消耗时间，平均消耗时间了。
实验一下：

> 
test_avg:tc(test_state, test, [], 10).
>Range:68 - 99 mics
Median:76 mics
Average:77 mics