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

Add examples of calls to -main, documentation

Browse Source
This commit is contained in:
Lee Spector 2023-03-15 23:11:32 -04:00 committed by GitHub
parent 313a4d5b2f
commit 86e0f6e3ef
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/propeller/session.cljc
View File

@ -18,17 +18,25 @@
[propeller.push.interpreter :as interpreter] [propeller.push.interpreter :as interpreter]
[propeller.push.state :as state])) [propeller.push.state :as state]))
;; Interpreting a simple Push program:
#_(interpreter/interpret-program #_(interpreter/interpret-program
'(1 2 :integer_add) state/empty-state 1000) '(1 2 :integer_add) state/empty-state 1000)
;; Retaining history:
#_(interpreter/interpret-program #_(interpreter/interpret-program
'(1 2 :integer_add) (assoc state/empty-state :keep-history true) 1000) '(1 2 :integer_add) (assoc state/empty-state :keep-history true) 1000)
;; A program with a conditional:
#_(interpreter/interpret-program #_(interpreter/interpret-program
'(3 3 :integer_eq :exec_if (1 "yes") (2 "no")) '(3 3 :integer_eq :exec_if (1 "yes") (2 "no"))
state/empty-state state/empty-state
1000) 1000)
;; A program using an input instruction:
#_(interpreter/interpret-program #_(interpreter/interpret-program
'(:in1 :string_reverse 1 :string_take "?" :string_eq :exec_if '(:in1 :string_reverse 1 :string_take "?" :string_eq :exec_if
(:in1 " I am asking." :string_concat) (:in1 " I am asking." :string_concat)
@ -43,9 +51,16 @@
(assoc state/empty-state :input {:in1 "I can hear you."}) (assoc state/empty-state :input {:in1 "I can hear you."})
1000) 1000)
;; Making a random genome (plushy) using instructions with specified types,
;; and returning the Push program expressed by the genome:
#_(genome/plushy->push #_(genome/plushy->push
(genome/make-random-plushy (instructions/get-stack-instructions #{:float :integer :exec :boolean}) 20)) (genome/make-random-plushy (instructions/get-stack-instructions #{:float :integer :exec :boolean}) 20))
;; One way of running a genetic programming problem defined in the project
;; is to require the problem's namespace and then call `gp/gp` using the
;; items defined for the problem:
#_(require '[propeller.problems.simple-regression :as regression]) #_(require '[propeller.problems.simple-regression :as regression])
#_(gp/gp {:instructions regression/instructions #_(gp/gp {:instructions regression/instructions
@ -79,3 +94,15 @@
:variation {:umad 0.5 :crossover 0.5} :variation {:umad 0.5 :crossover 0.5}
:elitism false}) :elitism false})
;; Another way to run a problem defined within the project is to require
;; the problem's namespace and then call its `-main`. This will use defaults
;; defined in the problem file:
#_(require '[propeller.problems.simple-regression :as regression])
#_(regression/-main)
;; Default values can be used but also partially overridden
#_(require '[propeller.problems.simple-regression :as regression])
#_(regression/-main :population-size 100 :variation {:umad 1.0})