用函数 squared 替换返回列表的第二部分

Question

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

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

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

Answer 1

也许

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

哪个returns{s,4s^2}

你也可以写成

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

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

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

将保持任何附加元素不变

Replace 2nd part of list returned with function squared