(defn choose
"Construct a distribution from an explicit list of probabilities
and values. They are given in the form of a vector of probability-value
pairs. In the last pair, the probability can be given by the keyword
:else, which stands for 1 minus the total of the other probabilities."
[& choices]
(letfn [(add-choice [dist [p v]]
(cond (nil? p) dist
(= p :else)
(let [total-p (reduce + (vals dist))]
(assoc dist v (- 1 total-p)))
:else (assoc dist v p)))]
(reduce add-choice {} (partition 2 choices))))
Used in 0 other vars
Source
clojure/contrib/probabilities/finite_distributions.clj:92
top
Comments top
No comments for choose. Log in to add a comment.