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

Only exchange in bmx with distance <= a limit, hardcoded to 4 for now

Browse Source
This commit is contained in:
Lee Spector 2023-12-10 14:37:45 -05:00
parent 49f6f6de72
commit a706babff1
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/propeller/variation.cljc
View File

@ -170,12 +170,23 @@ The function `new-individual` returns a new individual produced by selection and
[plushy-a plushy-b rate]
(let [a-genes (utils/extract-genes plushy-a)
b-genes (utils/extract-genes plushy-b)]
(flatten (interpose :gap
(mapv (fn [g]
(if (< (rand) rate)
(apply min-key #(metrics/unigram-bigram-distance g %) b-genes)
g))
a-genes)))))
(flatten
(interpose
:gap
(mapv (fn [a-gene]
(if (< (rand) rate)
(let [match-info (map (fn [b-gene]
{:distance (metrics/unigram-bigram-distance a-gene b-gene)
:gene b-gene})
b-genes)
candidates (filter (fn [info]
(<= (:distance info) 4))
match-info)]
(if (empty? candidates)
a-gene
(:gene (apply min-key :distance candidates))))
a-gene))
a-genes)))))
(defn new-individual
"Returns a new individual produced by selection and variation of