Merge and aggregate datasets: Difference between revisions

Content added Content deleted
(→‎{{header|Prolog}}: Update both versions)
(→‎{{header|Prolog}}: Better allow for "nan")
Line 875: Line 875:
:- load_csv('visit.csv',visit(integer,date,float)).
:- load_csv('visit.csv',visit(integer,date,float)).
:- load_csv('patient.csv',patient(integer,atom)).
:- load_csv('patient.csv',patient(integer,atom)).

is_nan(Number) :- number_codes(Number, [110,97,110|_]). %% "nan"
is_nan(Number) :- number_codes(Number, [78,97,78|_]). %% "NaN"


summaryDates(Id, Lastname, LastDate) :-
summaryDates(Id, Lastname, LastDate) :-
Line 903: Line 906:
scores(Id)(Score) :-
scores(Id)(Score) :-
visit(Id, _, Score), Score>0.0. %% nan.0 is very small
visit(Id, _, Score),
\+is_nan(Score).


:- hilog maximum.
:- hilog maximum.