Есть ли лучший способ написания кода, чем этот, так как мой код Erlang занимает 14 секунд для получения данных

Question

Я использую карту Erlang /Reduce на риаке. В ведре есть 57000 записей, где моя фаза карты получает фильтрацию записей на 14 секунд.

-module(chatlogs).
-author("gopi").

%% API
-export([getListForUser/3]).


getListForUser(Obj,_kd,Chat_id) ->
case catch mochijson2:decode(hd(riak_object:get_values(Obj))) of
{struct, Data} ->
     Event_list = [<<"INTRO_MSG">>, <<"QUESTION">>, <<"VALID_ANSWER">>,  <<"NEW_MSG">>],
    case proplists:get_value(<<"chat_id">>,Data) == Chat_id  of
    true ->
            case lists:member(proplists:get_value(<<"Event-Name">>,Data),Event_list) of
                    true->
                            [Data];
                    false->
                            []
            end;
    false ->
            []
    end;
_ ->
   []
end.

Есть ли лучший способ уменьшить и улучшить производительность кода