Mathematica 中的符号替换问题

Question

我想定义一个符号并在函数中使用它。例如，将 IDnumbers 定义为数字列表：

ParallelMap[{#1, Name[#1], Age[#1]} &, IDnumbers]

userlist={#1, Name[#1], Age[#1]} 变为：

ParallelMap[userlist &, IDnumbers]

它与列表本身一起工作得很好代码，但不带有符号。字符串列表与分配给字符串列表的符号也会发生同样的情况。这是为什么呢？

Answer 1

由于 f[#]& 是 Function[f[#]] 的简写，因此您应该始终使用尾随 & 来完成匿名函数得到一个工作函数。
在您的示例中：

userlist={#1, Name[#1], Age[#1]}&
ParallelMap[userlist, IDnumbers]

更彻底的解释：

通过仅使用诸如f[#]之类的东西，您会得到（在FullForm[]中），

In[15]            := f[#] // FullForm
Out[15]//FullForm  = f[Slot[1]]

而这会被转换通过尾随 & 运算符将其转换为函数：

In[16]            := f[#]& // FullForm
Out[16]//FullForm  = Function[f[Slot[1]]]

如果分两步执行此操作，& 不会计算中间变量 expr：

In[25]:= expr = f[#]//FullForm
In[26]:= expr &
Out[25]//FullForm = f[Slot[1]]
Out[26]           = expr &

您可以在包装之前强制对 expr 求值在 Function[] 中使用 Evaluate[]：

In[27]:= expr=f[#]//FullForm
In[28]:= Evaluate[expr]&
Out[27]//FullForm = f[Slot[1]]
Out[28]           = f[Slot[1]]&

另一种方法是自己提供 Function[] 包装器：

userlist={#1, Name[#1], Age[#1]}
ParallelMap[Function[userlist], IDnumbers]

就我个人而言，我会考虑这样做糟糕的编码风格。只需习惯于始终使用尾随 & 来结束匿名函数，就像您为相应的左括号 ( 提供右括号 ) 一样。

编辑
好的，在您动态生成的匿名函数的情况下，我可以明白为什么您不能直接提供 & 。只需将表达式与 Slot[] 封装在 Function[] 中即可。