求助，有没有大佬指点一下，刚从java转过来
{8,5,2,9,6,4,3,7,1} 将此元组中的奇数进行求和后除3的商（得值A），并将偶数求和后剩3（得值B），然后求A+B结果（谢绝一切API）

主要就是不会取元组的值，我想到的方法只有暴力破解，有几个原子就匹配几个参数去取，有没有大佬提供点更好的办法

什么叫将偶数求和后剩3

不回取值，就转成列表去取呀

%% {8,5,2,9,6,4,3,7,1} 将此元组中的奇数进行求和后除3的商（得值A），并将偶数求和后剩3（得值B），然后求A+B结果
-module(bbb).
-compile(export_all).
add(T) ->
L = tuple_to_list(T), %%将元组转成列表
Odds = [X || X <- L , X rem 2 =:= 0], %% 求列表中的奇数
io:format("~p~n",[Odds]),
Evens = [X || X <- L , X rem 2 =:= 1], %% 求列表的偶数
io:format("~p~n",[Evens]),
A = sum(Odds) div 3,
B = sum(Evens) * 3,
A+B.
%% 一个列表求和
sum([]) -> 0;
sum([H|T]) -> H +sum(T).

加油

才学到归集器，自己撸的一段，书上说这么写效率高一点。
-module(tieba).
-export([add/1,add_acc/3]).
add(L) -> add_acc(L,[],[]).
add_acc([H|T],Odds,Evens)->
case (H rem 2) of
1 -> add_acc(T,[H|Odds],Evens);
0 -> add_acc(T,Odds,[H|Evens])
end;
add_acc([],Odds,Evens)->
lists:sum(Evens) / 3 + lists:sum(Odds) * 3.