带计数器的 Foreach 循环

Question

我想在这个循环中添加一个计数器，以便了解列表中每个元素的行。你有一个简单的解决方案吗？

列表：foreach(fun(X) .... end,Y)，

Answer 1

使用lists:foldl或编写您自己的函数：

lists:foldl(fun(E,Cnt) -> ..., Cnt+1 end, 0, Y),

Answer 2

如果您想自己动手，这似乎可以按要求工作：

foreach_index(F, [H|T]) ->
    foreach_index(F, [H|T], 0).

foreach_index(F, [H|T], N) ->
    F(H, N),
    foreach_index(F, T, N + 1);

foreach_index(F, [], N) when is_function(F, 2) -> ok.

将使用两个参数调用函数 F - 列表中的单个条目及其索引。