Mathematica：将函数应用于列表列表

Question

我有一个函数f[d_] 。 我的意图是将此功能应用于整个列表。 说， d={1,2,3,...} ，然后f[d]给我一个结果（一个数字或其他）。 到这里为止，一切都清楚了。

现在说我有以下列表列表： p={l1,l2,l3,...}有没有比Map更有效的方法来计算f[p] ，其中预期结果是{f[l1],f[l2],f[l3],...} ？

例如，使用Sin[x]函数，将其映射到列表比将列表放入其参数中要慢得多。 这似乎不适用于我的函数f[d]和列表p。 我应该怎么做才能使它工作？ 会比Map快吗？

为了使自己更清晰，说

f[d_]:=Total[d]
Then, f[{a1,a2,a3}] gives me a1+a2+a3, as expected.
But, f[{{a1, a2, a3}, {b1, b2, b3}, {c1, c2, c3, c4}}] kills the machine.

谢谢！

Answer 1

当我更改您的代码时，它给出：

     Total[{{a1, b1, c1}, {b1, b2, b3}, {c1, c2, c3}}]
     {a1 + b1 + c1, b1 + b2 + c2, b3 + c1 + c3}

当Total接受一个列表参数时，它仅添加成员，在您的情况下，它添加

    {a1, b1, c1},{b1, b2, b3}, {c1, c2, c3}

但是它们的尺寸不同，因此您无法获得正确的答案。

在这种情况下，应使用Map。

    Map[Total,{{a1, b1, c1}, {b1, b2, b3}, {c1, c2, c3, c4}}]

要么

    Plus @@@ {{a1, b1, c1}, {b1, b2, b3}, {c1, c2, c3, c4}}

Answer 2

抱歉，Listable在这里不起作用。.如果有帮助，可以将map放在函数中。

ClearAll[f]
f[d_List] := Map[ Total, d, {-2}]
f[{1, 2, 3}]
f[{{1, 2, 3}, {4, 5}}]
f[{{{1, 2, 3}, {4, 5}}, {{6}, {7, 8}}}]

(* 6 *)
(* {6, 9} *)
(* {{6, 9}, {6, 15}} *)