Получение подсчета режима списка

Question

Я пытаюсь получить значение режима списка. Я знаю, что могу получить режим списка с помощью оператора режима таким образом, как «режимы показа [1 2 2 2 2 3 4]», который будет сообщать 2 как режим, но как бы получить счет для этого режиме, 4 в этом случае, так как их 4 2. Я предполагаю, что могу получить режим и повторить проверку списка, чтобы убедиться, что каждый номер равен режиму, но мне просто интересно, есть ли более простой способ.

Заранее благодарен!

Answer 1

Сочетание length и filter должны получить, что вы хотите:

let xs [1 2 2 3 3 4] 
foreach modes xs [ 
    let mode ? 
    let n length filter [ ? = mode ] xs 
    print (word "mode: " mode ", occurrences: " n) 
] 

Выведет:

mode: 2, occurrences: 2 
mode: 3, occurrences: 2 

(Конечно, по определению, каждый режим будет иметь такое же количество вхождений .)