0
Erlangでリストと数値Xを入力としてどのようにしてその番号Xのすべての要素をリストに入れますか?数値とリストを取り、Erlangでその数値のすべての位置を含むリストを出力する関数
私は機能プログラミングの初心者です。
Erlangでリストと数値Xを入力としてどのようにしてその番号Xのすべての要素をリストに入れますか?数値とリストを取り、Erlangでその数値のすべての位置を含むリストを出力する関数
私は機能プログラミングの初心者です。
get_pos(L,E) ->
{R,_} = lists:foldl(fun(X,{Acc,Pos}) when X == E -> {[Pos|Acc],Pos+1}; (_,{Acc,Pos}) -> {Acc,Pos+1} end, {[],1},L),
R.
クールと空想:
get_pos(L, E) ->
[ P ||
{X, P} <- lists:zip(L, lists:seq(1, length(L))),
X =:= E ].
古いと退屈:高速かつ効率的な
get_pos(L, E) ->
F = fun(X, {Acc, Pos}) ->
A = if X =:= E -> [Pos|Acc]; true -> Acc end,
{A, Pos+1}
end,
{R, _} = lists:foldl(F, {[], 1}, L),
R.
:
get_pos(L, E) -> get_pos(L, E, 1).
get_pos([], _, _) -> [];
get_pos([H|T], H, Pos) ->
[Pos | get_pos(T, H, Pos+1)];
get_pos([_|T], E, Pos) ->
get_pos(T, E, Pos+1).