RosettaCodeData/Task/Averages-Mode/Mathematica/averages-mode.math

3 lines
65 B
Plaintext

Commonest[{b, a, c, 2, a, b, 1, 2, 3}]
Commonest[{1, 3, 2, 3}]