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

Remove foreach.

Browse Source
This commit is contained in:
Calvin Rose
2018-05-01 23:38:53 -04:00
parent 6b5c5ab0ad
commit 256aba199f
2 changed files with 13 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/frequencies.dst
View File

@@ -1,12 +1,10 @@
# Get the number of occurences of elements in a set
(import "examples/iterators.dst")
(defn frequencies
"Get the number of occurences of each value in a sequence."
[s]
(let [freqs @{}
_ (foreach s (fn [x]
(let [n (get freqs x)]
(put freqs x (if n (+ 1 n) 1)))))]
freqs))
"Get the number of occurences of each value in a indexed structure."
[ind]
(def freqs @{})
(map (fn [x]
(let [n (get freqs x)]
(put freqs x (if n (+ 1 n) 1)))) ind)
freqs)