diff options
Diffstat (limited to 'src/clojure/contrib/probabilities/finite_distributions.clj')
| -rw-r--r-- | src/clojure/contrib/probabilities/finite_distributions.clj | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/clojure/contrib/probabilities/finite_distributions.clj b/src/clojure/contrib/probabilities/finite_distributions.clj index 7dcc280f..3b76b318 100644 --- a/src/clojure/contrib/probabilities/finite_distributions.clj +++ b/src/clojure/contrib/probabilities/finite_distributions.clj @@ -114,13 +114,16 @@ ) -(defn cond-prob - "Returns the conditional probability for the values in dist that satisfy - the predicate pred." - [pred dist] - (normalize-cond - (with-monad cond-dist-m - (m-bind dist (fn [v] (m-result (when (pred v) v))))))) +(with-monad cond-dist-m + (defn cond-prob + "Returns the conditional probability for the values in dist that satisfy + the predicate pred." + [pred dist] + (normalize-cond + (domonad + [v dist + :when (pred v)] + v)))) ; Select (with equal probability) N items from a sequence |