如何在 Mathematica 中将 Map[] 应用于使用两个参数的函数？

Question

总的来说，我试图计算列表中每组两个元素之间差异的范数，看起来像

X = {{1,2,3,4,5},{6,7,8,9,10},{11,12,13,14,15}}

因此评估

Norm[X[[1]]-X[[2]]]
Norm[X[[1]]-X[[3]]]
Norm[X[[2]]-X[[3]]]

现在，应用 Outer[] 是一种可行的方法

Outer[Norm[X[[#1]] - X[[#2]]] &, {1,2,3}, {1,2,3}]

但不幸的是，如果我增加 X 中的元素数量和每个元素的长度，它会导致代码非常慢。

有什么方法可以构造一个Map[]操作吗？像

MapThread[Norm[X[[#1]] - X[[#2]]] &,{{1,2,3},{1,2,3}}]

无法提供我正在寻找的所需“柯里化”。我使用的是 Mathematica 版本 11.2.0.0，所以我无法访问 Curry[].

很高兴收到任何建议！

Answer 1

mX = {{1, 2, 3, 4, 5}, {6, 7, 8, 9, 10}, {11, 12, 13, 14, 15}}
Apply[Norm@*Subtract, #] & /@ Subsets[mX, {2}]

两种等效方法：

(Norm@*Subtract) @@@ Subsets[mX, {2}]
Apply[Norm@*Subtract, Subsets[mX, {2}], {1}]

How do I apply Map[] to a function using two arguments in Mathematica?