rowan.a.tl/propeller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow autoconstructive crossover between any pair, swap genes based on similarity

Browse Source
This commit is contained in:
Lee Spector 2023-11-05 10:27:59 -05:00
parent e488bbf9da
commit bc7b4467c1
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/propeller/variation.cljc
View File

@ -52,7 +52,8 @@ Since `uniform-addition` and `uniform-deletion` are somewhat stochastic, you can
The function `new-individual` returns a new individual produced by selection and variation of individuals in the population based on the genetic operators provided in the `:variation` map." The function `new-individual` returns a new individual produced by selection and variation of individuals in the population based on the genetic operators provided in the `:variation` map."
{:doc/format :markdown} {:doc/format :markdown}
(:require [propeller.selection :as selection] (:require [propeller.selection :as selection]
[propeller.utils :as utils])) [propeller.utils :as utils]
[propeller.tools.metrics :as metrics]))
(defn crossover (defn crossover
"Crosses over two individuals using uniform crossover, one Push instruction at a time. "Crosses over two individuals using uniform crossover, one Push instruction at a time.
@ -239,15 +240,16 @@ The function `new-individual` returns a new individual produced by selection and
(rest remainder))))) (rest remainder)))))
(defn autoconstructive-crossover (defn autoconstructive-crossover
"Crosses over two plushies using autoconstructive crossover, one Push instruction at a time. "Crosses over two plushies using autoconstructive crossover, one Push instruction at a time."
Assumes the plushies have the same number of genes."
[plushy-a plushy-b] [plushy-a plushy-b]
(let [a-genes (extract-genes plushy-a) (let [a-genes (extract-genes plushy-a)
b-genes (extract-genes plushy-b)] b-genes (extract-genes plushy-b)]
(flatten (interpose :gene (flatten (interpose :gene
(mapv #(if (< (rand) 0.5) %1 %2) (mapv (fn [g]
a-genes (if (< (rand) 0.5)
b-genes))))) g
(apply min-key #(metrics/levenshtein-distance g %) b-genes)))
a-genes)))))
(defn new-individual (defn new-individual
"Returns a new individual produced by selection and variation of "Returns a new individual produced by selection and variation of
@ -279,12 +281,7 @@ The function `new-individual` returns a new individual produced by selection and
; ;
:autoconstructive-crossover :autoconstructive-crossover
(let [plushy1 (:plushy (selection/select-parent pop argmap)) (let [plushy1 (:plushy (selection/select-parent pop argmap))
p1-genes (count-genes plushy1) plushy2 (:plushy (selection/select-parent pop argmap))]
plushy2 (:plushy (selection/select-parent
(filter #(= (count-genes (:plushy %))
p1-genes)
pop)
argmap))]
(autoconstructive-crossover plushy1 plushy2)) (autoconstructive-crossover plushy1 plushy2))
; ;
:umad ;; uniform mutation by addition and deleted, see uniform-deletion for the :umad ;; uniform mutation by addition and deleted, see uniform-deletion for the