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

Strip :vary and :protect if using :ah-umad

Browse Source
This commit is contained in:
Lee Spector 2023-10-11 19:27:26 -04:00
parent 0dc286610a
commit b88ff01526
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/propeller/genome.cljc
View File

@ -22,6 +22,9 @@ They hold the genetic material for an `individual`. In the initial population, w
([plushy] (plushy->push plushy {}))
([plushy argmap]
(let [plushy (if (:diploid argmap) (map first (partition 2 plushy)) plushy)
plushy (if (> (or (:ah-umad (:variation argmap)) 0) 0) ;; strip :vary and :protect if using :ah-umad
(filter (complement #{:vary :protect}) plushy)
plushy)
opener? #(and (vector? %) (= (first %) 'open))] ;; [open <n>] marks opens
(loop [push () ;; iteratively build the Push program from the plushy
plushy (mapcat #(let [n (get instructions/opens %)]