% ==========================================================================
% $Id: emperor.pl,v 1.1 2014/01/14 17:02:05 jlang Exp $
% CSI2120 example Code for lecture 3
% ==========================================================================
% (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: emperor.pl,v $
% Revision 1.1  2014/01/14 17:02:05  jlang
% Corrected spelling
%
% Revision 1.1  2014/01/14 16:57:22  jlang
% Checked in some examples for lecture 3
%
% ==========================================================================


% Roman Nervan-Antonian dynasty according to Wikipedia
reigns(nerva, 96, 98 ).
reigns(trajan,98,117). 
reigns(hadrian,117,138).
reigns(antoninusPius,138,161).
reigns(luciusVerus,161,169).
reigns(marcusAurelius,161,180).
reigns(commodus,177,192).

emperor(Name,Year) :- reigns(Name,X,Y),
  X=<Year,
  Y>=Year.