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)))))))