bug.bat

来自「一套美国国家宇航局人工智能中心NASA的专家系统工具源代码」· Batch 代码 · 共 10 行

(deftemplate example (field x (type INTEGER)))
(deftemplate example (field x (type INTEGER)))
(deftemplate example (field x (allowed-integers 1 2 3)))
(deftemplate example (field x (range 1 3)))
(deftemplate example (field x (type INTEGERFLOAT)))
(defgeneric foo)
(deffunction foo ())
(clear)