Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (12 sloc) 274 Bytes
-module (doloops_benchmark).
-export ([run/0]).
run() ->
% TODO: a better way to test loop?
List = lists:seq(0, 1000000),
loop(List).
loop([], Result) ->
Result;
loop([H|T], Result) ->
loop(T, [H | Result]).
loop([H|T]) ->
loop(T, [H]).