Pass argmap to report

This commit is contained in:
Lee Spector 2020-12-09 10:49:53 -05:00
parent 0af6aa095e
commit 2f4adfde7a

View File

@ -13,7 +13,7 @@
(defn report (defn report
"Reports information each generation." "Reports information each generation."
[pop generation] [pop generation argmap]
(let [best (first pop)] (let [best (first pop)]
(println "-------------------------------------------------------") (println "-------------------------------------------------------")
(println " Report for Generation" generation) (println " Report for Generation" generation)
@ -48,7 +48,7 @@
:cljs map) :cljs map)
(partial error-function argmap) population)) (partial error-function argmap) population))
best-individual (first evaluated-pop)] best-individual (first evaluated-pop)]
(report evaluated-pop generation) (report evaluated-pop generation argmap)
(cond (cond
;; Success on training cases is verified on testing cases ;; Success on training cases is verified on testing cases
(zero? (:total-error best-individual)) (zero? (:total-error best-individual))