quick benchmark of ets:lookup_element

gistfile1.txt

% bench:start().
% {result1,57663,result2,43880}

-module(bench).

-export([start/0]).

-record(record, {
        key,
        one = 1.0,
        two = 2.0,
        three = 3.0,
        four = 4.0
        }).

-define(TIMES, 100000).

start() ->
    ets:new(table, [named_table, {keypos, 2}]),
    [ets:insert(table, #record{key=Key}) || Key <- lists:seq(1, ?TIMES)],

    key = 7777,
    fun1 = fun() -> [ets:lookup(table, Key) || _ <- lists:seq(1, ?TIMES)] end,
    fun2 = fun() ->
            Work = fun() ->
                    ets:lookup_element(table, Key, #record.one),
                    ets:lookup_element(table, Key, #record.two)
            end,
            [Work() || _ <- lists:seq(1, ?TIMES)]
    end,

    {T1, _} = timer:tc(Fun1),
    {T2, _} = timer:tc(Fun2),
    {result1, T1, result2, T2}.