75 lines
843 B
Common Lisp
75 lines
843 B
Common Lisp
CL-USER>(defparameter *forest* (make-new-forest))
|
|
CL-USER>(simulate *forest* 5)
|
|
------ Initial forest ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T T
|
|
TTTT T TT
|
|
T TT T T
|
|
T TTT
|
|
TTTT TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
|
|
------ Generation 1 ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T T
|
|
TTTT T TT
|
|
T TT T T
|
|
T TTT
|
|
TTTT TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
|
|
------ Generation 2 ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T T
|
|
TTTT T TT
|
|
TTTT T T
|
|
T TTT
|
|
TTT# TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
|
|
------ Generation 3 ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T T
|
|
TTTT T TT
|
|
TTTT T T
|
|
# TTT
|
|
TT# TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
|
|
------ Generation 4 ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T TT
|
|
TTTT T TT
|
|
TTT# T T
|
|
TTT
|
|
T# TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
|
|
------ Generation 5 ------
|
|
TTTTT TT
|
|
TTT TT
|
|
TT T TT
|
|
T### T TT
|
|
TT# T T
|
|
TTT
|
|
# TTT
|
|
T
|
|
T T T T
|
|
TTT TTT T
|
|
NIL
|