ok, otaku... source?
------------------------------
(next-cycle world)
(incl cycles)
(print-world world cycles)))
(defun life(source)
(let*((size(length .................this line is hard to read after this point cuz of cursor overlay
(life(make-world
:size size
:current(make-array(list size size):element-type 'bit
:initial-contents source)
:next(make-array(list size size) : elements-type 'bit
:initial-element: 0)
------------
That's what I could make out at least...
------------------------------
(next-cycle world)
(incl cycles)
(print-world world cycles)))
(defun life(source)
(let*((size(length .................this line is hard to read after this point cuz of cursor overlay
(life(make-world
:size size
:current(make-array(list size size):element-type 'bit
:initial-contents source)
:next(make-array(list size size) : elements-type 'bit
:initial-element: 0)
------------
That's what I could make out at least...