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

hbghlyj · 2021-6-30 17:04

Last edited by hbghlyj 2021-6-30 17:53FindDuplicates =
Function[x, Module[{counts}, counts = Select[Counts[x], # > 1 &];
Flatten[Position[x, #]] & /@ Keys[counts]]]
示例
S = RandomInteger[{1, 1000}, 2000];
FindDuplicates[S]

Account		Remember me	Forgot password?
Password			Register account

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

Viewed boards