janet/examples/frequencies.dst

# 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 @{})
 (each (fn [x] 
    (let [n (get freqs x)]
     (put freqs x (if n (+ 1 n) 1)))) ind)
 freqs)
Add getline on unix. 2018-03-14 03:39:49 +00:00			`# Get the number of occurences of elements in a set`

			`(defn frequencies`
Remove foreach. 2018-05-02 03:38:53 +00:00			`"Get the number of occurences of each value in a indexed structure."`
			`[ind]`
			`(def freqs @{})`
Add each. 2018-05-05 18:41:47 +00:00			`(each (fn [x]`
Remove foreach. 2018-05-02 03:38:53 +00:00			`(let [n (get freqs x)]`
			`(put freqs x (if n (+ 1 n) 1)))) ind)`
			`freqs)`