s452652/system_doradzwa_medycznego_prolog
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

change paint to splited

Browse Source
This commit is contained in:
Tomek Sidoruk 2021-06-13 21:25:03 +02:00
parent 0e48d88f07
commit 3f0ef263f9
Signed by: s452652
GPG Key ID: 3E83A65E74849A08
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
medical_adviser.pl
View File

@ -43,13 +43,21 @@ envelop([X|Xs], [Z|Zs]) :-
Z=(X),
envelop(Xs,Zs).
envelopPain([X], [Z]):-
Z=("pain",[X]).
envelopPain([X|Xs], [Z|Zs]) :-
Z=("pain",[X]),
envelopPain(Xs,Zs).
iterate([_], []).
iterate([X|Xs], [Z|WithoutLast]) :-
(sub_string(X,_,_,_,"Patient has ")->string_length(X,AA),L is AA-12, sub_string(X,12,L,_,AAA), split_string(AAA, ",", " ", AAAA),envelop(AAAA,Z);
(sub_string(X,_,_,_,"Patient ")->string_length(X,AA),L is AA-8, sub_string(X,8,L,_,AAA), split_string(AAA, ",", " ", AAAA),envelop(AAAA,Z);
(sub_string(X,_,_,_,"Patients erythrocyte level is ")->string_length(X,AA),L is AA-30, sub_string(X,30,L,_,AAA), re_replace(",",".",AAA,AAAA), number_string(VAL,AAAA), (VAL>4.2->(VAL>5.4->Z=("erythrocyte",1);Z=("erythrocyte",0));Z=[("erythrocyte",-1)]);
(sub_string(X,_,_,_,"Patients temperature is ")->string_length(X,AA), sub_string(X,24,4,_,AAA), re_replace(",",".",AAA,AAAA), number_string(VAL,AAAA), (VAL>37.0->(VAL>38.0->Z=("fever",2);Z=("fever",1));Z=[("fever",0)]);
(sub_string(X,_,_,_,"Patients ")->string_length(X,AA),L is AA-15, sub_string(X,9,L,_,AAA), split_string(AAA, ",", " ", AAAA), Z=[("pain",AAAA)];Z="cannot interprete"))))),
(sub_string(X,_,_,_,"Patients ")->string_length(X,AA),L is AA-15, sub_string(X,9,L,_,AAA), split_string(AAA, ",", " ", AAAA), envelopPain(AAAA,Z);Z="cannot interprete"))))),
iterate(Xs, WithoutLast).