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

Change outputs from strings to maps

Browse Source
This commit is contained in:
klingliu 2021-06-29 12:20:04 -04:00
parent 522ca181f9
commit 1437b16bfc
3 changed files with 33 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitignore vendored
View File

@ -15,9 +15,11 @@ pom.xml.asc
out
notes
.clj-kondo/
.idea/
.calva/
.lsp/
/.idea
/.idea/
/results
# Don't commit the data directory that we'll
# use to hold the data from

2
.idea/misc.xml generated
View File

@ -7,7 +7,7 @@
</list>
</option>
</component>
<component name="ProjectRootManager" version="2" languageLevel="JDK_13" project-jdk-name="13" project-jdk-type="JavaSDK">
<component name="ProjectRootManager" version="2" languageLevel="JDK_13" project-jdk-name="1.8" project-jdk-type="JavaSDK">
<output url="file://$PROJECT_DIR$/out" />
</component>
</project>

40
src/propeller/gp.cljc
View File

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