mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-08 12:32:30 +00:00
Code Issues 1 Releases Wiki Activity

Add frequencies to core library.

Browse Source
This commit is contained in:
Calvin Rose
2018-06-03 14:21:24 -04:00
parent 63baa52392
commit 6d1ab414e4
2 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/frequencies.dst
View File

@@ -1,11 +0,0 @@
# 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)