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

Add :vary and :protect when using ah-umad

Browse Source
This commit is contained in:
Lee Spector 2023-11-08 19:17:16 -05:00
parent 3ccd5542ea
commit 037baf9b2e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/propeller/gp.cljc
View File

@ -148,6 +148,15 @@
n (:autoconstructive-crossover-enrichment args)] n (:autoconstructive-crossover-enrichment args)]
(if (and prob (> prob 0)) (if (and prob (> prob 0))
(update args :instructions concat (repeat (or n 1) :gene)) (update args :instructions concat (repeat (or n 1) :gene))
args)))
;
adjust-for-ah-umad
(fn [args]
(let [prob (:ah-umad (:variation args))
n (:ah-umad-enrichment args)]
(if (and prob (> prob 0))
(update args :instructions concat (flatten (repeat (or n 1) [:vary :protect])))
args)))] args)))]
(gp-loop (-> argmap (gp-loop (-> argmap
(adjust-for-autoconstructive-crossover))))) (adjust-for-autoconstructive-crossover)
(adjust-for-ah-umad)))))