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

Don't allow uniform-deletion to delete :gap

Browse Source
This commit is contained in:
Lee Spector 2023-12-06 20:26:04 -05:00
parent 28ab925601
commit b40aff3d6d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/propeller/variation.cljc
View File

@ -130,8 +130,10 @@ The function `new-individual` returns a new individual produced by selection and
[plushy umad-rate] [plushy umad-rate]
(if (zero? umad-rate) (if (zero? umad-rate)
plushy plushy
(remove (fn [_] (< (rand) (remove (fn [item]
(/ 1 (+ 1 (/ 1 umad-rate))))) (and (not= item :gap)
(< (rand)
(/ 1 (+ 1 (/ 1 umad-rate))))))
plushy))) plushy)))
(defn bmx (defn bmx