Use pmapallv for variation, which includes selection

This commit is contained in:
Lee Spector 2023-08-30 12:52:34 -04:00
parent a2192ca37d
commit 87ba635f4f

View File

@ -80,9 +80,11 @@
;; ;;
:else (recur (inc generation) :else (recur (inc generation)
(if (:elitism argmap) (if (:elitism argmap)
(conj (repeatedly (dec population-size) (conj (utils/pmapallv (fn [_] (variation/new-individual evaluated-pop argmap))
#(variation/new-individual evaluated-pop argmap)) (range (dec population-size))
argmap)
(first evaluated-pop)) ;elitism maintains the most-fit individual (first evaluated-pop)) ;elitism maintains the most-fit individual
(repeatedly population-size (utils/pmapallv (fn [_] (variation/new-individual evaluated-pop argmap))
#(variation/new-individual evaluated-pop argmap)))))))) (range population-size)
argmap)))))))