diff options
| author | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-01-08 10:52:33 +0100 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@fastmail.net> | 2010-01-08 10:52:33 +0100 |
| commit | eb2ae1ea5d1e4d9dbb9340f5a264b430baff5145 (patch) | |
| tree | c865522b5d3d59507ef093a1bde3244adaae7913 /src/clojure | |
| parent | 25fec5b5771408c30b802b67dc14a15043446a12 (diff) | |
finite-distributions: fixed typo
Diffstat (limited to 'src/clojure')
| -rw-r--r-- | src/clojure/contrib/probabilities/finite_distributions.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clojure/contrib/probabilities/finite_distributions.clj b/src/clojure/contrib/probabilities/finite_distributions.clj index c1dd3a88..a93aa0d8 100644 --- a/src/clojure/contrib/probabilities/finite_distributions.clj +++ b/src/clojure/contrib/probabilities/finite_distributions.clj @@ -1,9 +1,9 @@ ;; Finite probability distributions ;; by Konrad Hinsen -;; last updated May 11, 2009 +;; last updated January 8, 2010 -;; Copyright (c) Konrad Hinsen, 2009. All rights reserved. The use +;; Copyright (c) Konrad Hinsen, 2009-2010. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse ;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) ;; which can be found in the file epl-v10.html at the root of this @@ -34,7 +34,7 @@ m-bind (fn m-bind-dist [mv f] (reduce (partial merge-with +) (for [[x p] mv [y q] (f x)] - [y (* q p)]))) + {y (* q p)}))) ]) ; Applying the monad transformer maybe-t to the basic dist monad results |