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

[Copy link]

3147 Threads	8493 Posts	610K Credits

Credits: 66163

Show all posts

Send PM

hbghlyj Posted at 2021-6-30 17:04:39 |Read mode

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

Reply Edit

Report

Return to list New

		Remember me	Forgot password?
Password			Create new account

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

Viewed forums