[不定更] 用 CLIPS 模拟生态

继 初入门 后，用 CLIPS 改写 生态模拟。

步子很小，稍安勿躁。

• 第 0 步：单体永生
• 第 0.1 步：单种繁衍

(deftemplate 某种
  (slot 编号)
  (slot 出生时间))

(deftemplate 世界
  (slot 时间)
)

(defrule 开始
  =>
  (println "开天辟地")
  (assert (世界 (时间 0)))
  (assert (某种 (编号 0) (出生时间 0))))

; 当无优先级声明时，规则编写顺序决定了执行的优先级！

(defrule 时间流逝
  ?环境 <- (世界 (时间 ?时间))
  =>
  (modify ?环境 (时间 (+ ?时间 1)))
)

(defrule 繁衍
  (declare (salience 10))
  (世界 (时间 ?时间))
  (某种 (编号 ?编号) (出生时间 ?出生时间))
  (test (= 10000000 (- ?时间 ?出生时间)))
  =>
  (assert (某种 (编号 (+ 1 ?编号)) (出生时间 ?时间)))
)

待续。