Move require to top level
This commit is contained in:
parent
11a2534f67
commit
5ff0fbed77
@ -1,7 +1,14 @@
|
|||||||
(ns propeller.gp
|
(ns propeller.gp
|
||||||
(:require [propeller.genome :as genome]
|
(:require [propeller.genome :as genome]
|
||||||
[propeller.variation :as variation]
|
[propeller.variation :as variation]
|
||||||
[propeller.push.core :as push]))
|
[propeller.push.core :as push]
|
||||||
|
[propeller.push.instructions.boolean]
|
||||||
|
[propeller.push.instructions.char]
|
||||||
|
[propeller.push.instructions.code]
|
||||||
|
[propeller.push.instructions.input-output]
|
||||||
|
[propeller.push.instructions.numeric]
|
||||||
|
[propeller.push.instructions.polymorphic]
|
||||||
|
[propeller.push.instructions.string]))
|
||||||
|
|
||||||
(defn report
|
(defn report
|
||||||
"Reports information each generation."
|
"Reports information each generation."
|
||||||
@ -29,10 +36,7 @@
|
|||||||
;;
|
;;
|
||||||
(println "Starting GP with args: " argmap)
|
(println "Starting GP with args: " argmap)
|
||||||
;;
|
;;
|
||||||
(do (print "Registering instructions... ")
|
(do (println "Registered instructions:")
|
||||||
(require '[propeller.push.instructions boolean char code input-output
|
|
||||||
numeric polymorphic string])
|
|
||||||
(println "Done. Registered instructions:")
|
|
||||||
(println (sort (keys @push/instruction-table))))
|
(println (sort (keys @push/instruction-table))))
|
||||||
;;
|
;;
|
||||||
(loop [generation 0
|
(loop [generation 0
|
||||||
|
Loading…
x
Reference in New Issue
Block a user