Wolfram mathematica 将返回的列表的第二部分替换为函数平方

如上所述，我想用第二部分的平方替换从函数返回的列表的第二部分

n[s]:= {1*s,2*s};
ReplacePart[n[s],2->?^2]

我需要问号与返回的当前值相等。使用或不使用ReplacePart时，最简洁的方法是什么

n[s]:= {1*s,2*s}; 
n[s]/.{y_,z_}->{y,z^2}

返回{s，4s^2}

你也可以这样写

ReplaceAll[n[s],{y_,z_}->{y,z^2}]

如果列表可能包含或不包含两个以上的元素，则

ReplaceAll[n[s],{y_,z_,x___}->{y,z^2,x}]

---

将保持任何附加元素不变

我想出了另外两种方法：1。a=n[s]；替换零件[a，2->a[2]^2]2。MapAt[Power，n[s]，{2}我喜欢你这样做。模式匹配对吗？在您和这些备选方案之间，最具可读性、最标准的方法是什么？无论哪种方法，非常感谢您之前的回答。我真的很感激。我来自Python，但还不能找到在Mathematica中处理函数式编程的最佳方法。再次感谢您的帮助。在Mathematica或Python中，做任何事情都至少有六种不同的方法。在数学中有一种文化，就是试图用最短的，有时更神秘的方式来写东西。掌握一些标准的做事方法，以便可靠地使用它们可能是最重要的。理解一种完全不同的编程方式可能需要一段时间。使用/。和->可能是你会看到最常用的。买一本像《Mathematica Navigator》这样的廉价二手书可能会帮助你开始学习这门语言。祝你的新语言好运。