list - 在列表中查找并打印等于

Question

给定 [n,k] 范围内的 50 个随机整数列表，其中 n 小于 k。我想找出有多少个数字彼此相等并打印出来。

Answer 1

这可以通过Tally如下方式完成。

首先，让我们生成一个测试列表：

list = RandomInteger[{5, 10}, 50]

(* ==>  {10, 7, 5, 7, 10, 8, 6, 6, 7, 6, 6, 8, 7, 5, 6, 9, 10, 6, 
         9, 6, 10, 8, 10, 8, 9, 7, 5, 9, 8, 5, 9, 7, 5, 7, 9, 10, 
         6, 6, 7, 7, 5, 6, 9, 10, 5, 6, 6, 6, 10, 9} 
*)

然后数一数：

Tally[list]

(* ==> {{10, 8}, {7, 9}, {5, 7}, {8, 5}, {6, 13}, {9, 8}} *)