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

Fix :flip that should be :diploid-flip

Browse Source
This commit is contained in:
Lee Spector 2020-11-29 21:43:00 -05:00
parent 81f2c3197f
commit 0c6ebde41b
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/propeller/push/state.cljc
View File

@ -35,13 +35,6 @@
[state stack] [state stack]
(empty? (get state stack))) (empty? (get state stack)))
;;; Returns the top item on the stack
;(defn peek-stack
; [state stack]
; (if-let [top-item (first (get state stack))]
; top-item
; :no-stack-item))
;; Returns the top item on the stack ;; Returns the top item on the stack
(defn peek-stack (defn peek-stack
[state stack] [state stack]

2
src/propeller/variation.cljc
View File

@ -86,7 +86,7 @@
[crossover uniform-addition uniform-deletion]) [crossover uniform-addition uniform-deletion])
xover-prob (or (:crossover (:variation argmap)) 0) xover-prob (or (:crossover (:variation argmap)) 0)
umad-prob (or (:umad (:variation argmap)) 0) umad-prob (or (:umad (:variation argmap)) 0)
flip-prob (or (:flip (:variation argmap)) 0)] flip-prob (or (:diploid-flip (:variation argmap)) 0)]
(cond (cond
(< prob xover-prob) (< prob xover-prob)
(xover (:plushy (selection/select-parent pop argmap)) (xover (:plushy (selection/select-parent pop argmap))