在Mathematica中修改Map函数的用户定义版本？

Question

我正试图在Mathematica中创建用户定义的Map[]函数版本，并且遇到了一些问题。

这是我到目前为止有：

map[x_, s_List] := mapAux[x, s, {}]; 
mapAux[x, s, {}] := Append[{}, First[s]]; 
mapAux[x, Rest[s], {}]; 

我试图用它作为

map[# + 1 &, {3, 6, 8}] 

但是这给输出旁边有一个神秘的错误：

Rest::normal: Nonatomic expression expected at position 1 in Rest[s]. 

mapAux[#1 + 1 &, {3, 6, 8}, {}] 

理想的结果是{4,7,9}。我研究了“Nonatomic expression”错误，我不确定它的含义。我通过一个清单，但它只是爆炸！

Answer 1

你没有通过s或x作为变量，所以它只是看到s（这是一个原子表达式）而不是一个列表。您的定义需要为mapAux[x_, s_, {}]:=...，这将使x和s取得传递参数的值。