commit b5f6b651414feef7b6e42ca03908bd65cb0a5efa Author: Tomek Sidoruk Date: Sat Jun 12 16:14:29 2021 +0200 initial comit diff --git a/asd.pl b/asd.pl new file mode 100644 index 0000000..ce6faaa --- /dev/null +++ b/asd.pl @@ -0,0 +1,10 @@ +disease('flu',[('pain',['sore']),('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')],[('cannot swallow'),('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',['sore']),('paroxysmal cough')],[('conjunctivitis'),('vomiting')]). +disease('myasthenia',[('excessive fatigue')],[('muscle weakness'),('double vision')]). +disease('atrial fibrillation',[('dizziness'),('fainting'),('excessive fatigue')],[('cough')]). \ No newline at end of file