在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取得傳遞參數的值。