リスト内でequalsを見つけて印刷する

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}} *)