人工智能导论 植物专家系统

databasexpositive(symbol,symbol)xnegative(symbol,symbol)predicatesrunplant_is(symbol)it_is(symbol)positive(symbol,symbol)negative(symbol,symbol)clear_factsremember(symbol,symbol,symbol)ask(symbol,symbol)goalrun.clausesrun:-plant_is(X),!,write("\