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

Merge pull request #19 from klingliu/outputs

Browse Source 
Change outputs from strings to maps
This commit is contained in:
Lee Spector 2021-06-29 15:43:12 -04:00 committed by GitHub
commit 390c880291
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 29 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
src/propeller/gp.cljc
View File

@ -1,36 +1,31 @@
(ns propeller.gp (ns propeller.gp
(:require [clojure.string] (:require [clojure.string]
[propeller.genome :as genome] [clojure.pprint]
[propeller.variation :as variation] [propeller.genome :as genome]
[propeller.push.instructions.bool] [propeller.variation :as variation]
[propeller.push.instructions.character] [propeller.push.instructions.bool]
[propeller.push.instructions.code] [propeller.push.instructions.character]
[propeller.push.instructions.input-output] [propeller.push.instructions.code]
[propeller.push.instructions.numeric] [propeller.push.instructions.input-output]
[propeller.push.instructions.polymorphic] [propeller.push.instructions.numeric]
[propeller.push.instructions.string] [propeller.push.instructions.polymorphic]
[propeller.push.instructions.vector])) [propeller.push.instructions.string]
[propeller.push.instructions.vector]))
(defn report (defn report
"Reports information each generation." "Reports information each generation."
[pop generation argmap] [pop generation argmap]
(let [best (first pop)] (let [best (first pop)]
(println "-------------------------------------------------------") (clojure.pprint/pprint {:generation generation
(println " Report for Generation" generation) :best-plushy (:plushy best)
(println "-------------------------------------------------------") :best-program (genome/plushy->push (:plushy best) argmap)
(print "Best plushy: ") (prn (:plushy best)) :best-total-error (:total-error best)
(print "Best program: ") (prn (genome/plushy->push (:plushy best) argmap)) :best-errors (:errors best)
(println "Best total error:" (:total-error best)) :best-behaviors (:behaviors best)
(println "Best errors:" (:errors best)) :genotypic-diversity (float (/ (count (distinct (map :plushy pop))) (count pop)))
(println "Best behaviors:" (:behaviors best)) :behavioral-diversity (float (/ (count (distinct (map :behaviors pop))) (count pop)))
(println "Genotypic diversity:" :average-genome-length (float (/ (reduce + (map count (map :plushy pop))) (count pop)))
(float (/ (count (distinct (map :plushy pop))) (count pop)))) :average-total-error (float (/ (reduce + (map :total-error pop)) (count pop)))})
(println "Behavioral diversity:"
(float (/ (count (distinct (map :behaviors pop))) (count pop))))
(println "Average genome length:"
(float (/ (reduce + (map count (map :plushy pop))) (count pop))))
(println "Average total error:"
(float (/ (reduce + (map :total-error pop)) (count pop))))
(println))) (println)))
(defn gp (defn gp
@ -39,7 +34,8 @@
max-initial-plushy-size] max-initial-plushy-size]
:as argmap}] :as argmap}]
;; ;;
(println "Starting GP with args: " argmap) (println {:starting-args argmap})
(println)
;; ;;
(loop [generation 0 (loop [generation 0
population (repeatedly population (repeatedly
@ -56,12 +52,12 @@
(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))
(do (println "SUCCESS at generation" generation) (do (println {:success-generation generation})
(print "Checking program on test cases... ") ;(print "Checking program on test cases... ")
(if (zero? (:total-error (error-function argmap best-individual :test))) (if (zero? (:total-error (error-function argmap best-individual :test)))
(println "Test cases passed.") (println {:test-cases-pass-fail 1})
(println "Test cases failed.")) (println {:test-cases-pass-fail 0}))
;(#?(:clj shutdown-agents)) (#?(:clj shutdown-agents))
) )
;; ;;
(>= generation max-generations) (>= generation max-generations)