10 lines
1.1 KiB
Perl
10 lines
1.1 KiB
Perl
|
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')]).
|