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

Add question mark, so complementary mate selection for bmx is invoked with :bmx-complementary? true

Browse Source
This commit is contained in:
Lee Spector 2023-12-06 14:32:40 -05:00
parent 2970632c26
commit de5aeabd5e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/propeller/variation.cljc
View File

@ -174,7 +174,7 @@ The function `new-individual` returns a new individual produced by selection and
; ;
:bmx ;; best match crossover :bmx ;; best match crossover
(let [parent1 (selection/select-parent pop argmap) (let [parent1 (selection/select-parent pop argmap)
parent2 (if (:bmx-complementary argmap) parent2 (if (:bmx-complementary? argmap)
(selection/select-parent (selection/select-parent
pop pop
(assoc argmap (assoc argmap
@ -196,7 +196,7 @@ The function `new-individual` returns a new individual produced by selection and
:bmx-umad ;; applies umad to the results of bmx :bmx-umad ;; applies umad to the results of bmx
(let [umad-rate (utils/onenum (:umad-rate argmap))] (let [umad-rate (utils/onenum (:umad-rate argmap))]
(-> (let [parent1 (selection/select-parent pop argmap) (-> (let [parent1 (selection/select-parent pop argmap)
parent2 (if (:bmx-complementary argmap) parent2 (if (:bmx-complementary? argmap)
(selection/select-parent (selection/select-parent
pop pop
(assoc argmap (assoc argmap