Question

我如何在Erlang中构造一个函数，它以列表和数字X作为输入，然后返回列表中具有该数字X的所有元素的位置？

我是函数式编程的新手。

Answer 1

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.

Answer 2

酷和幻想：

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).

一个函数，它接受一个数字和一个列表，并在Erlang中输出一个包含该数字所有位置的列表

2 个答案: