mirror of
https://github.com/janet-lang/janet
synced 2024-09-29 07:20:41 +00:00
12 lines
256 B
Plaintext
12 lines
256 B
Plaintext
# Get the number of occurences of elements in a set
|
|
|
|
(defn frequencies
|
|
"Get the number of occurences of each value in a indexed structure."
|
|
[ind]
|
|
(def freqs @{})
|
|
(loop
|
|
[x :in ind]
|
|
(def n (get freqs x))
|
|
(put freqs x (if n (+ 1 n) 1)))
|
|
freqs)
|