免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

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

[i=s] 本帖最后由 hbghlyj 于 2021-6-30 17:53 编辑 [/i]

FindDuplicates =
Function[x, Module[{counts}, counts = Select[Counts[x], # > 1 &];
   Flatten[Position[x, #]] & /@ Keys[counts]]]
示例
S = RandomInteger[{1, 1000}, 2000];
FindDuplicates[S]

返回列表 回复 发帖