From de5aeabd5eea58aa6a320f42048fcb0bdf3aaf55 Mon Sep 17 00:00:00 2001 From: Lee Spector Date: Wed, 6 Dec 2023 14:32:40 -0500 Subject: [PATCH] Add question mark, so complementary mate selection for bmx is invoked with :bmx-complementary? true --- src/propeller/variation.cljc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/propeller/variation.cljc b/src/propeller/variation.cljc index 513a59a..bee5976 100644 --- a/src/propeller/variation.cljc +++ b/src/propeller/variation.cljc @@ -174,7 +174,7 @@ The function `new-individual` returns a new individual produced by selection and ; :bmx ;; best match crossover (let [parent1 (selection/select-parent pop argmap) - parent2 (if (:bmx-complementary argmap) + parent2 (if (:bmx-complementary? argmap) (selection/select-parent pop (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 (let [umad-rate (utils/onenum (:umad-rate argmap))] (-> (let [parent1 (selection/select-parent pop argmap) - parent2 (if (:bmx-complementary argmap) + parent2 (if (:bmx-complementary? argmap) (selection/select-parent pop (assoc argmap