Use pmapallv for variation, which includes selection
This commit is contained in:
parent
a2192ca37d
commit
87ba635f4f
@ -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)))))))
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user