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

Don't call identity on error function

Browse Source
This commit is contained in:
Lee Spector 2021-07-13 18:20:31 -04:00
parent 4954ac3a5f
commit ec65f959f2
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/propeller/core.cljc
View File

@ -23,23 +23,20 @@
;; Creates problems
(require (symbol (str "propeller.problems." (first args))))
(gp/gp
(update-in
(merge
{:instructions (eval-problem-var (first args) "instructions")
:error-function (eval-problem-var (first args) "error-function")
:max-generations 500
:population-size 500
:max-initial-plushy-size 100
:step-limit 200
:parent-selection :lexicase
:tournament-size 5
:umad-rate 0.1
:variation {:umad 0.5 :crossover 0.5}
:elitism false
:PSB2-path ""
:PSB2-problem (clojure.string/replace (first args) #"PSB2." "")}
(apply hash-map
(map #(if (and (string? %) (not (.contains % "/"))) (read-string %) %)
(rest args))))
[:error-function]
identity)))
(merge
{:instructions (eval-problem-var (first args) "instructions")
:error-function (eval-problem-var (first args) "error-function")
:max-generations 500
:population-size 500
:max-initial-plushy-size 100
:step-limit 200
:parent-selection :lexicase
:tournament-size 5
:umad-rate 0.1
:variation {:umad 0.5 :crossover 0.5}
:elitism false
:PSB2-path ""
:PSB2-problem (clojure.string/replace (first args) #"PSB2." "")}
(apply hash-map
(map #(if (and (string? %) (not (.contains % "/"))) (read-string %) %)
(rest args))))))