獲取列表模式的計數

Question

我正在嘗試獲取列表模式的值。我知道我可以通過使用模式運算符的方式來獲得列表的模式，例如「show modes [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 

（當然，根據定義，每個模式將具有相同數量的發生）