Merge and aggregate datasets: Difference between revisions
m
→{{header|Mercury}}
(Refactor the aggregates) |
|||
Line 1,166:
main(!IO) :-
patient(Id,Lastname),
Scores = (pred(Score::out) is nondet :- visit(Id,_,Score), \+is_nan(Score)),
bag_avg(Scores, Avg),
bag_sum(Scores, Sum),
Dates = (pred(Date::out) is nondet :- visit(Id,Date,_), Date\=
bag_max_date(Dates, MaxDate)),
{{out}}
<pre>{Id, Lastname, SumScores, AvgScores, MaxDate}:
|