mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-23 13:43:16 +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
Show Stats 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)

10
src/compiler/boot.dst
View File

@ -730,6 +730,16 @@ in the same manner, and so on. Useful for expressing pipelines of data."
(:= k (next x k)))
arr)
(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)
###
###
### Pretty Printer