From 87ba635f4f654b4533c9c79b874d812e426d97de Mon Sep 17 00:00:00 2001 From: Lee Spector Date: Wed, 30 Aug 2023 12:52:34 -0400 Subject: [PATCH] Use pmapallv for variation, which includes selection --- src/propeller/gp.cljc | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/propeller/gp.cljc b/src/propeller/gp.cljc index 32c23af..f7d3ff9 100644 --- a/src/propeller/gp.cljc +++ b/src/propeller/gp.cljc @@ -80,9 +80,11 @@ ;; :else (recur (inc generation) (if (:elitism argmap) - (conj (repeatedly (dec population-size) - #(variation/new-individual evaluated-pop argmap)) + (conj (utils/pmapallv (fn [_] (variation/new-individual evaluated-pop argmap)) + (range (dec population-size)) + argmap) (first evaluated-pop)) ;elitism maintains the most-fit individual - (repeatedly population-size - #(variation/new-individual evaluated-pop argmap)))))))) + (utils/pmapallv (fn [_] (variation/new-individual evaluated-pop argmap)) + (range population-size) + argmap)))))))