wolfram-mathematica - 如何从mathematica中一对列表的元素生成产品列表

Question

是否有一个预先准备好的操作需要两个列表，比如

a = { 1, 2, 3 }
b = { 2, 4, 8 }

并在不使用 for 循环的情况下生成一个新列表，其中每对列表中的相应元素已相乘

{ a[1] b[1], a[2] b[2], a[3] b[3] }

我在想可能存在像 Inner[Times, a, b, Plus] 这样的东西，但返回一个列表而不是一个总和。

Answer 1

a = {1, 2, 3}
b = {2, 4, 8}

Thread[Times[a, b]]

或者，因为 Times[]在列表上逐元素地线程化，简单地:

a b

请注意，两种解决方案的效率并不相同:

i = RandomInteger[ 10, {5 10^7} ];
{First[ Timing [i i]], First[ Timing[ Thread[ Times [i,i]]]]}

(*
-> {0.422, 1.235}
*)

编辑
Times[]的行为是由于 Listable属性。看这个:

SetAttributes[f,Listable];
f[{1,2,3},{3,4,5}]
(*
-> {f[1,3],f[2,4],f[3,5]}
*)