% ==========================================================================
% $Id: voter.pl,v 1.3 2014/01/09 20:09:14 jlang Exp $
% CSI2120 example Code for lecture 2
% ==========================================================================
% (C)opyright:
%
%   Jochen Lang
%   SITE, 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: voter.pl,v $
% Revision 1.3  2014/01/09 20:09:14  jlang
% Removed blank lines.
%
% Revision 1.2  2014/01/09 19:12:53  jlang
% Added header
%
% ==========================================================================
name(joe).
name(jane).
citizen(jane).
citizen(joe).
adult(jane).
voter(X):- 
       name(X), 
       citizen(X), 
       adult(X).