system_doradzwa_medycznego_.../asd.pl
2021-06-12 16:21:07 +02:00

10 lines
1.1 KiB
Prolog

disease('flu',[('pain',['throat']),('runny nose'),('fever',-1),('general weakness'),('cough')],[('pain',['musles'])]).
disease('malaria',[('fever',2),('general weakness')],[('pain',['head']),('chills'),('erythrocyte',-1)]).
disease('angina',[('fever',2),('cough'),('general weakness'),('magnifying lymph nodes'),('pain',['throat'])],[('cannot swallow'),('pain',['head']),('chills')]).
disease('diphtheria',[('fever',1),('general weakness'),('dyspnea')],[('Unclear Speech'),('cannot swallow')]).
disease('typhoid',[('fever',-1),('pain',['stomach']),('spleen enlargement')],['tire symptoms']).
disease('plague',[('fever',2),('general weakness'),('magnifying lymph nodes'),('liver enlargement'),('spleen enlargement')],[('cloded rash')]).
disease('haemophilia',[('epistaxis'),('impaired blood clotting'),('spleen enlargement')],[]).
disease('whooping cough',[('fever',1),('pain',['throat']),('paroxysmal cough')],[('conjunctivitis'),('vomiting')]).
disease('myasthenia',[('excessive fatigue')],[('muscle weakness'),('double vision')]).
disease('atrial fibrillation',[('dizziness'),('fainting'),('excessive fatigue')],[('cough')]).