% ==========================================================================
% $Id: nobleB.pl,v 1.3 2014/01/09 20:09:13 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: nobleB.pl,v $
% Revision 1.3  2014/01/09 20:09:13  jlang
% Removed blank lines.
%
% Revision 1.2  2014/01/09 19:12:53  jlang
% Added header
%
% ==========================================================================
father(charles,jean).
noble(henri).
noble(louis).
noble(charles).
noble(X):- noble(Y),
           father(Y,X).