公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

+1 投票
393 浏览
kdata = {12, 34, 45, 48, 78, 58, 73, 45, 47}

ReplacePart[kdata, # -> kdata[[#]] - 5] & /@ {2, 4, 6, 8}//Last



想要的结果是原列表指定位置元素值减5,即{12, 29, 45, 43, 78, 53, 73, 40, 47},但是ReplacePart只改变原列表副本的样子...怎样才能直接改变kdata的值啊~求帮指点

用户: gadfhykft (111 分)

2 个回答

+1 投票
 
已采纳

这样:

kdata[[{2, 4, 6, 8}]] = kdata[[{2, 4, 6, 8}]] - 5

 

用户: 野鹤 (4.9k 分)
采纳于 用户:gadfhykft
十分感谢~~~~~~~~
0 投票

其实还可以更简单一点:

 

kdata[[{2, 4, 6, 8}]] -= 5

 

用户: xzczd (2.1k 分)
谢谢~用replacepart的LZ已经被自己蠢哭了
...