找出列表中重复的元素的位置

[复制链接]

3149 主题	8386 回帖	6万积分

$\style{scale:11;fill:#eff}꩜$

积分: 65391

显示全部楼层

发消息

hbghlyj 发表于 2021-6-30 17:04 |阅读模式

本帖最后由 hbghlyj 于 2021-6-30 17:53 编辑 FindDuplicates =
Function[x, Module[{counts}, counts = Select[Counts[x], # > 1 &];
Flatten[Position[x, #]] & /@ Keys[counts]]]
示例
S = RandomInteger[{1, 1000}, 2000];
FindDuplicates[S]

返回列表发新帖

		自动登录	找回密码
密码			快速注册