下面的测试,构造了一个1000W长度的列表,用于进行循环测试
主函数体为:
test(Lv, Star) ->
CheckList = [{
lv, Lv}, {
star, Star}],
List = lists:seq(1, 10000000),
StarTime = erlang:system_time(milli_seconds),
[case check_list(CheckList) of
true -> true;
{
error, _Error} -> skip
end || _X <- List],
EndTime = erlang:system_time(milli_seconds),
io:format("1 need_time : ~p~n", [