From d9163338b4b8f73114f1b467f8543bdb5cad47d1 Mon Sep 17 00:00:00 2001
From: Andy Fingerhut <andy_fingerhut@alum.wustl.edu>
Date: Sun, 28 Oct 2012 15:14:59 -0700
Subject: [PATCH] ALGOM-9: Replace calls to deprecated functions

---
 src/examples/clojure/examples/monads.clj      | 8 ++++----
 src/test/clojure/clojure/algo/test_monads.clj | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/examples/clojure/examples/monads.clj b/src/examples/clojure/examples/monads.clj
index a35b078..b6b523d 100644
--- a/src/examples/clojure/examples/monads.clj
+++ b/src/examples/clojure/examples/monads.clj
@@ -82,7 +82,7 @@
 ; This definition suggests a generalization:
 (with-monad sequence-m
    (defn ntuples [n xs]
-      (m-seq (replicate n xs))))
+      (m-seq (repeat n xs))))
 
 (ntuples 2 (range 5))
 (ntuples 3 (range 5))
@@ -222,14 +222,14 @@
 ; of + to be lifted to the state monad:
 (def gaussian2
    (domonad state-m
-      [sum12 (reduce (m-lift 2 +) (replicate 12 rng))]
+      [sum12 (reduce (m-lift 2 +) (repeat 12 rng))]
       (- sum12 6.)))
 
 ; Such a reduction is often quite useful, so there's m-reduce predefined
 ; to simplify it:
 (def gaussian2
    (domonad state-m
-      [sum12 (m-reduce + (replicate 12 rng))]
+      [sum12 (m-reduce + (repeat 12 rng))]
       (- sum12 6.)))
 
 ; The statistics should be strictly the same as above, as long as
@@ -242,7 +242,7 @@
 (with-monad state-m
    (def gaussian3
         ((m-lift 1 #(- % 6.))
-           (m-reduce + (replicate 12 rng)))))
+           (m-reduce + (repeat 12 rng)))))
 
 ; Again, the statistics are the same:
 (mean (take 1000 (value-seq gaussian3 1)))
diff --git a/src/test/clojure/clojure/algo/test_monads.clj b/src/test/clojure/clojure/algo/test_monads.clj
index bd6282f..3ee3960 100644
--- a/src/test/clojure/clojure/algo/test_monads.clj
+++ b/src/test/clojure/clojure/algo/test_monads.clj
@@ -89,9 +89,9 @@
         '((1 1) (2 0))
       ((m-lift 2 #(list %1 %2)) (range 3) (range 2))
         '((0 0) (0 1) (1 0) (1 1) (2 0) (2 1))
-      (m-seq (replicate 3 (range 2)))
+      (m-seq (repeat 3 (range 2)))
         '((0 0 0) (0 0 1) (0 1 0) (0 1 1) (1 0 0) (1 0 1) (1 1 0) (1 1 1))
-      ((m-chain (replicate 3 range)) 5)
+      ((m-chain (repeat 3 range)) 5)
         '(0 0 0 1 0 0 1 0 1 2)
       (m-plus (range 3) (range 2))
         '(0 1 2 0 1))))
-- 
1.8.0