% ==========================================================================
% $Id: grades.pl,v 1.1 2014/01/23 04:34:04 jlang Exp $
% CSI2120 example Code for lecture 6
% ==========================================================================
% (C)opyright:
%
%   Jochen Lang
%   EECS, University of Ottawa
%   800 King Edward Ave.
%   Ottawa, On., K1N 6N5
%   Canada. 
%   http://www.eecs.uottawa.ca/~jlang
% 
% Creator: jlang (Jochen Lang)
% Email:   jlang@eecs.uottawa.ca
% ==========================================================================
% $Log: grades.pl,v $
% Revision 1.1  2014/01/23 04:34:04  jlang
% Created examples for lecture 6
%
% ==========================================================================
grade(nick,8).
grade(rachel,4).
grade(peter,3).
grade(monica,7).
grade(samantha,4).

% Queries:
% setof(A,N^grade(N,A),B).
% setof(A,N^grade(N,A),[H|T]).
% setof(A,N^grade(N,A),[H|_]).
% setof([A,N],grade(N,A),[[_,J]|_]).
% grade(P,A1),\+((grade(_,A2),A2<A1)).