Merge and aggregate datasets: Difference between revisions

→‎{{header|Prolog}}: Better allow for "nan"
(→‎{{header|Prolog}}: Update both versions)
(→‎{{header|Prolog}}: Better allow for "nan")
Line 875:
:- load_csv('visit.csv',visit(integer,date,float)).
:- 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) :-
Line 903 ⟶ 906:
scores(Id)(Score) :-
visit(Id, _, Score), Score>0.0. %% nan.0 is very small
\+is_nan(Score).
 
:- hilog maximum.
136

edits