RosettaCodeData/Task/Apply-a-callback-to-an-array/Mathematica/apply-a-callback-to-an-array.math

(#*#)& /@ {1, 2, 3, 4}

Map[Function[#*#], {1, 2, 3, 4}]

Map[((#*#)&,{1,2,3,4}]

Map[Function[w,w*w],{1,2,3,4}]