erlang取列表中某个值的位置

　　有个需求,比如在一个列表中，取出一个元素的位置，如果出现重复都取出。例如:List = [2,3,10,324,88,29,12],可以求大于某个值的位置，也可以取某个值的位置。

废话少说，直接上代码：

%%测试用例
 enter() ->
        A = [true,false,true,false,true,false,true,true],
        %A = [10,11,20,3,9.2,8.23,10.4,9.2],
        N = lists:foldr(fun(X,Y) ->  case  lists:nth(X,A) == true  of
                           true -> [X|Y];
                           false -> Y
                       end
              end, [],lists:seq(1,length(A) )),
        io:format("N......123...~p~n",[N]),
        N.

在上述例子中，是找true在列表A中的位置。运行结果如下：

即找到对应的true在列表A中的位置.

或由递归遍历： 

get_obj_index(Obj,List) ->
get_Obj_index(Obj, List, 1).

get_Obj_index(Obj, [First | Other],Index) ->
case First =:= Obj of
true ->
Index;
false ->
get_Obj_index(Obj, Other, Index+1)
end;
get_Obj_index(_Obj, [],_Index) ->
undefind.