janet/examples/frequencies.dst

# 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))
Add getline on unix. 2018-03-14 03:39:49 +00:00			`# Get the number of occurences of elements in a set`

Update core namespace. Clean up some code, and put more emphasis on indexed data-structure combinators instead of iterators. 2018-03-28 17:50:06 +00:00			`(import "examples/iterators.dst")`

Add getline on unix. 2018-03-14 03:39:49 +00:00			`(defn frequencies`
			`"Get the number of occurences of each value in a sequence."`
			`[s]`
			`(let [freqs @{}`
Rename seq abstraction to iterator. Add random functions. 2018-03-15 21:19:31 +00:00			`_ (foreach s (fn [x]`
			`(let [n (get freqs x)]`
			`(put freqs x (if n (+ 1 n) 1)))))]`
Add getline on unix. 2018-03-14 03:39:49 +00:00			`freqs))`