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

Make crossover, uniform-addition, and uniform-deletion take argmap arguments

Browse Source
This commit is contained in:
Lee Spector 2020-11-22 21:06:39 -05:00
parent aadc28d371
commit 55644a9b6d
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -13,3 +13,4 @@ pom.xml.asc
*.iml
.idea/
out
notes

15
src/propeller/variation.cljc
View File

@ -4,7 +4,7 @@
(defn crossover
"Crosses over two individuals using uniform crossover. Pads shorter one."
[plushy-a plushy-b]
[plushy-a plushy-b argmap]
(let [shorter (min-key count plushy-a plushy-b)
longer (if (= shorter plushy-a)
plushy-b
@ -19,7 +19,7 @@
(defn uniform-addition
"Returns plushy with new instructions possibly added before or after each
existing instruction."
[plushy instructions umad-rate]
[plushy instructions umad-rate argmap]
(apply concat
(map #(if (< (rand) umad-rate)
(shuffle [% (utils/random-instruction instructions)])
@ -28,7 +28,7 @@
(defn uniform-deletion
"Randomly deletes instructions from plushy at some rate."
[plushy umad-rate]
[plushy umad-rate argmap]
(remove (fn [_] (< (rand)
(/ 1 (+ 1 (/ 1 umad-rate)))))
plushy))
@ -42,11 +42,14 @@
(cond
(< prob (:crossover (:variation argmap)))
(crossover (:plushy (selection/select-parent pop argmap))
(:plushy (selection/select-parent pop argmap)))
(:plushy (selection/select-parent pop argmap))
argmap)
(< prob (+ (:crossover (:variation argmap))
(:umad (:variation argmap))))
(uniform-deletion (uniform-addition (:plushy (selection/select-parent pop argmap))
(:instructions argmap)
(:umad-rate argmap))
(/ 1 (+ (/ 1 (:umad-rate argmap)) 1)))
(:umad-rate argmap)
argmap)
(/ 1 (+ (/ 1 (:umad-rate argmap)) 1))
argmap)
:else (:plushy (selection/select-parent pop argmap))))})