Форум программистов [Powered by Invision Power Board]

Код

:-op(100,xfx,['-рекомендовано','имеет','имеет симптом','имеет признак']).
:-dynamic 'имеет симптом'/2 'имеет признак'/2
clause_cf(X'-рекомендовано''лечь в постель и принять аспирин',(X'имеет''простуда',not(X'имеет''уязвимый возраст')),0.9).
X'-рекомендовано''вызвать врача':-X'имеет''простуда',X'имеет''уязвимый возраст'.
X'-рекомендовано''вызвать врача':-X'имеет''острый фарингит'.
clause_cf(X'-рекомендовано''лечь в постель и принять аспирин',X'имеет''грипп',0.7).
clause_cf(X'имеет простуда',(X'имеет симптом''мышечные боли',X'имеет''лихорадка'),0.8).
X'имеет''уязвимый возраст':-X'имеет признак''моложе 8 лет'.
X'имеет''уязвимый возраст':-X'имеет признак''старше 60 лет'.
clause_cf(X'имеет''острый фарингит',(X'имеет симптом''лихорадка',X'имеет симптом''нарывы в горле'),0.8).
askable(_'имеет симптом'_).
askable(_'имеет признак'_).
hy(X,Y):-member(Y,['лечь в постель и принять аспирин','вызвать врача']),X'-рекомендовано'Y.
system(member(_,_)).