24 lines
737 B
Common Lisp
24 lines
737 B
Common Lisp
;;;; cl-scopes/csys/program/gene - generative / genetic programs
|
|
|
|
(defpackage :scopes/csys/program/gene
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:actor :scopes/core/actor)
|
|
(:csys :scopes/csys)
|
|
(:environ :scopes/csys/environ)
|
|
(:message :scopes/core/message)
|
|
(:util :scopes/util))
|
|
(:export #:prog-g0))
|
|
|
|
(in-package :scopes/csys/program/gene)
|
|
|
|
;;;; gene-0: zero-only network for explicit messages and interactive testing
|
|
|
|
(defun prog-g0 ()
|
|
(let ((val-action (csys:value-add)))
|
|
(csys:make-program
|
|
(list '(:c00 :initial) (csys:std-proc :value val-action)
|
|
'(:e00 :initial) (csys:eff-proc)
|
|
':default (csys:std-proc)))))
|
|
|
|
|
|
|