mirror of
https://github.com/janet-lang/janet
synced 2024-10-05 01:50:39 +00:00
12 lines
283 B
Plaintext
12 lines
283 B
Plaintext
|
# Get the number of occurences of elements in a set
|
||
|
|
||
|
(defn frequencies
|
||
|
"Get the number of occurences of each value in a sequence."
|
||
|
[s]
|
||
|
(let [freqs @{}
|
||
|
fop (fn [x]
|
||
|
(let [n (get freqs x)]
|
||
|
(put freqs x (if n (+ 1 n) 1))))
|
||
|
_ (domap fop s)]
|
||
|
freqs))
|