Started Common Lisp implementation

CommonLisp/README.adoc

+= Common Lisp
+
+This version can be executed using https://lisp-lang.org/[Common Lisp] with the following command: `CL_SOURCE_REGISTRY=$(pwd)/conway sbcl --script main.lisp`.
+
+== Tests
+
+TBD
+

CommonLisp/conway/cell.lisp

+(deftype cell () '(dead alive))
+
+(defun print-cell (c)
+  (if (eq c 'alive)
+	  (format nil " * |")
+	  (format nil "   |")))

CommonLisp/conway/conway.asd

+(asdf:defsystem "conway"
+  :description "Conway's Game of Life in Common Lisp"
+  :version "0.0.1"
+  :author "Adrian Kosmaczewski <me@akos.ma>"
+  :licence "Public Domain"
+  :components ((:file "coord")
+			   (:file "world")
+			   (:file "cell")))

CommonLisp/conway/coord.lisp

+(defstruct coord x y)

CommonLisp/conway/world.lisp

+(defclass world ()
+  ((size :accessor size :initarg :size)
+   (aliveCells :initarg :alive))
+  (:documentation "A lattice of cells referenced by coord values."))
+
+(defmethod evolve ((object world))
+  (make-instance 'world :size (size object)))

CommonLisp/main.lisp

+(require "asdf")
+(asdf:operate 'asdf:load-op 'conway)
+
+(defparameter *my-hash* (make-hash-table))
+(defparameter *coord1* (make-coord :x 45 :y 64))
+(defparameter *coord2* (make-coord :x 356 :y 65))
+
+(setf (gethash *coord1* *my-hash*) 'alive)
+(format t "~A~%" (print-cell (gethash *coord1* *my-hash*)))
+;; ALIVE
+(format t "~A~%" (gethash *coord2* *my-hash*))
+;; NIL
+(setf (gethash *coord2* *my-hash*) 'dead)
+(format t "~A~%" (print-cell (gethash *coord2* *my-hash*)))
+;; DEAD
+
+(defun fa ()
+	(vector *coord1* *coord2* (make-coord :x 1 :y 2)))
+
+(defparameter *vec* (fa))
+(format t "~A~%" *vec*)
+(sleep 0.5)
+
+(defparameter *w1* (make-instance 'world :size 556 :alive nil))
+(defparameter *w2* (evolve *w1*))
+(format t "~A~%" (size *w2*))