专家系统JESS实例教程

我们假设有一个交易系统，客户提出要买的东西，卖家提供要买的东西，如果有符合的，就成交。这是一个很简单的系统，用一般程序语言也可以实现，但是我们看看专家系统开发更简单的方法。

1第一条规则

如果来了新的客户，取得这个客户所有需要的商品，并产生新的事实。

(defrule query-buyer
  ?fact <- (new-buyer ?buyer)            ; if there is a new a buyer...
=>
  (retract ?fact)
  (foreach ?i (nth$ 2 (send ?buyer "GetProducts"))
    (assert (requires ?buyer ?i))        ; get the products the buyer requires
                                         ; and for each one create a fact
                         &n