From 19d049500bbb29204d9f9f701ab7b285ca4f8758 Mon Sep 17 00:00:00 2001 From: Lee Spector Date: Sat, 7 Jan 2023 11:55:19 -0500 Subject: [PATCH] Fix formatting --- src/propeller/selection.cljc | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/propeller/selection.cljc b/src/propeller/selection.cljc index f6b2932..bc89788 100755 --- a/src/propeller/selection.cljc +++ b/src/propeller/selection.cljc @@ -29,7 +29,10 @@ (loop [epsilons [] i 0] (if (= i length) 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 "Selects an individual from the population using epsilon-lexicase selection." @@ -40,12 +43,13 @@ (if (or (empty? cases) (empty? (rest survivors))) (rand-nth survivors) - (let [min-err-for-case (apply min (map #(nth % (first cases)) (map :errors survivors))) epsilon (nth epsilons (first cases))] - - (recur (filter #(<= (Math/abs (- (nth (:errors %) (first cases)) min-err-for-case)) epsilon) + (recur (filter #(<= (Math/abs (- (nth (:errors %) + (first cases)) + min-err-for-case)) + epsilon) survivors) (rest cases)))))))