|
(loop [generation 1, parent (repeatedly tsize randc)]
|
|
(println generation, (apply str parent), (fitness parent))
|
|
(if-not (perfectly-fit? parent)
|
|
(let [children (repeatedly c #(mutate parent))
|
|
fittest (apply max-key fitness parent children)]
|
|
(recur (inc generation), fittest))))
|