18、模拟世界与文本格式化编程探索

模拟世界与文本格式化编程探索

1. 模拟世界的构建与运行

1.1 动物基因与模拟添加

在模拟世界中，动物基因值的变化范围为加一、减一或保持不变，同时为确保基因值不小于 1，会使用 max 函数进行处理。之后，通过 push 操作将新的动物添加到全局 *animal* 列表中，使其参与模拟。

1.2 模拟一天的世界

通过 update-world 函数模拟世界中的一天，具体步骤如下：

(defun update-world ()
  (setf *animals* (remove-if (lambda (animal)
                               (<= (animal-energy animal) 0))
                             *animals*))
  (mapc (lambda (animal)
          (turn animal)
          (move animal)
          (eat animal)
          (reproduce animal))
        *animals*)
  (add-plants))

流程说明：
1. 移除世界中死亡的动物（能量小于等于 0 的动物）。
2. 对存活的动物进行日常活动处理，包括转向、移动、进食和繁殖。
3. 调用