如何使用erlang列表：map函数

Question

以下是一个 erlang 函数。我不明白lists:map函数在这里是如何使用的。 有人可以解释一下吗？

% perform M runs with N calls to F in each run.
% For each of the M runs, determine the average time per call.
% Return, the average and standard deviation of these M results.

time_it(F, N, M) ->
      G = fun() -> F(), ok end,
      NN = lists:seq(1, N),
      MM = lists:seq(1, M),
      T = lists:map(
            fun(_) ->
          T0 = now(),               % start timer
          [ G() || _ <- NN ],           % make N calls to F
          1.0e-6*timer:now_diff(now(), T0)/N    % average time per call
        end,
        MM
          ),
      { avg(T), std(T) }.

谢谢。

另外，我不知道使用此函数时的正确语法。例如，我有一个 dummy() 函数采用 1 个参数。我在尝试对虚拟函数计时时遇到错误。

moduleName:time_it(moduleName:dummy/1, 10, 100).

以上将评估为非法表达。

实际上，现在使用正确的语法，可以正确调用该函数：

moduleName:time_it(fun moduleName:dummy/1, 10, 100).

但是，它会抛出一个异常，指出调用虚拟函数而不传递任何参数。我认为这一行是恶棍，[ G() || _ <- NN ], 我不知道如何修复它。

Answer 1

函数

T0 = now(),                           % start timer
[ G() || _ <- NN ],                   % make N calls to F
1.0e-6*timer:now_diff(now(), T0)/N    % average time per call

这里使用map来执行MM每个元素的 。 map 将返回一个相同大小的新列表，其中新列表的每个元素是将上述函数应用于 MM 相应元素的结果。

您可以像这样调用 time_it：

moduleName:time_it(fun moduleName:dummy/1, 10, 100).

Answer 2

time_it 函数中 lists:map 的作用只是运行内部函数 M 次。当你看到这个模式时：

L = lists:seq(1,M),
lists:map(fun(_)-> Foo() end, L)

它只是意味着一次又一次地调用 Foo() M 次，并在列表中返回每次调用的结果。它实际上创建了一个整数列表[1,2,3,...N]，然后为列表中的每个成员调用一次Foo()。
time_it 的作者又做了同样的技巧，因为 time_it 需要调用你给它的函数 N*M 次。因此，在运行 M 次的外部循环中，他们使用不同的技术来运行内部循环 N 次：

L = lists:seq(1,N),
[Foo() || _ <- L]

这与上面的代码具有完全相同的结果，但这次 Foo 被调用了 N 次。

您在虚拟函数中使用 time_it 时遇到问题的原因是 time_it 采用带有 0 个参数而不是 1 个参数的函数。因此，您需要创建一个虚拟函数并调用它像这样：

dummy() -> 
    %% do something here you want to measure
    ok.

measure_dummy() ->
    time_it(fun someModule:dummy/0, 10, 100).

Answer 3

如果您有一个函数 moduleName:dummy/1 您可以执行以下操作之一

1. 如果您可以编辑 time_it/3，则使其调用 F(constant_parameter) 而不是 <代码>F()。我想情况就是这样。
2. 否则，调用M1:time_it(fun() -> M2:dummy(constant_parameter) end, N, M)。
   dummy 不会被直接调用，而只能由 time_it 内的 F 调用。

Answer 4

results(N, F) when N >= 0 -> results(N, F, []).
results(0, _, Acc) -> lists:reverse(Acc);
results(N, F, Acc) -> results(N-1, F, [F() | Acc]).

repeat(0, F) -> ok;
repeat(N, F) when N > 0 ->
    F(),
    repeat(N-1, F).

有了这些：

T = results(M, fun () ->
                   T0 = now(),
                   repeat(N, G),
                   1.0e-6 * timer:now_diff(now(), T0)/N
               end) 

现在有意义吗？