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

Fix formatting

Browse Source
This commit is contained in:
Lee Spector 2023-01-07 11:55:19 -05:00
parent 9a10faaec2
commit 19d049500b
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/propeller/selection.cljc
View File

@ -29,7 +29,10 @@
(loop [epsilons [] i 0] (loop [epsilons [] i 0]
(if (= i length) (if (= i length)
epsilons epsilons
(recur (conj epsilons (math-tools/median-absolute-deviation (map #(nth % i) error-list))) (inc i)))))) (recur (conj epsilons
(math-tools/median-absolute-deviation
(map #(nth % i) error-list)))
(inc i))))))
(defn epsilon-lexicase-selection (defn epsilon-lexicase-selection
"Selects an individual from the population using epsilon-lexicase selection." "Selects an individual from the population using epsilon-lexicase selection."
@ -40,12 +43,13 @@
(if (or (empty? cases) (if (or (empty? cases)
(empty? (rest survivors))) (empty? (rest survivors)))
(rand-nth survivors) (rand-nth survivors)
(let [min-err-for-case (apply min (map #(nth % (first cases)) (let [min-err-for-case (apply min (map #(nth % (first cases))
(map :errors survivors))) (map :errors survivors)))
epsilon (nth epsilons (first cases))] epsilon (nth epsilons (first cases))]
(recur (filter #(<= (Math/abs (- (nth (:errors %)
(recur (filter #(<= (Math/abs (- (nth (:errors %) (first cases)) min-err-for-case)) epsilon) (first cases))
min-err-for-case))
epsilon)
survivors) survivors)
(rest cases))))))) (rest cases)))))))