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

Do not consider adding at a :gap

Browse Source
This commit is contained in:
Lee Spector 2023-12-07 16:47:50 -05:00
parent f6a9426751
commit 82657abf32
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/propeller/variation.cljc
View File

@ -111,7 +111,8 @@ The function `new-individual` returns a new individual produced by selection and
existing instruction." existing instruction."
[plushy instructions umad-rate] [plushy instructions umad-rate]
(apply concat (apply concat
(map #(if (< (rand) umad-rate) (map #(if (and (not= % :gap)
(< (rand) umad-rate))
(shuffle [% (utils/random-instruction instructions)]) (shuffle [% (utils/random-instruction instructions)])
[%]) [%])
plushy))) plushy)))