tepichord/GEMLA
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Undoing LISP spikes

Browse source
This commit is contained in:
vandomej 2024-03-08 15:46:26 -08:00
parent e8d373d4f9
commit f0fdaa7af9
4 changed files with 0 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
carp_spike/.gitignore vendored
View file

@ -1 +0,0 @@
out/

10
carp_spike/main.carp
View file

@ -1,10 +0,0 @@
(use Random)
(Project.config "title" "gemla")
(deftype SimulationNode [population-size Int, population-cutoff Int])
;; (let [test (SimulationNode.init 10 3)]
;; (do
;; (SimulationNode.set-population-size test 20)
;; (SimulationNode.population-size &test)
;; ))

0
sbcl_spike/.gitignore vendored
View file

12
sbcl_spike/main.lisp
View file

@ -1,12 +0,0 @@
;; Define a type that contains a population size and a population cutoff
(defclass simulation-node () ((population-size :initarg :population-size :accessor population-size)
(population-cutoff :initarg :population-cutoff :accessor population-cutoff)
(population :initform () :accessor population)))
;; Define a method that initializes population-size number of children in a population each with a random value
(defmethod initialize-instance :after ((node simulation-node) &key)
(setf (population node) (make-list (population-size node) :initial-element (random 100))))
(let ((node (make-instance 'simulation-node :population-size 100 :population-cutoff 10)))
(print (population-size node))
(population node))