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