RosettaCodeData/Task/Time-a-function/Erlang/time-a-function-2.erl

9> timer:tc(fun (X) -> lists:foreach(fun(Y) -> Y*Y end, lists:seq(1,X)) end, [1000000]).
{2293844,ok}