% ==========================================================================
% $Id: tree.pl,v 1.1 2014/01/28 06:18:51 jlang Exp $
% CSI2120 example Code for lecture 7
% ==========================================================================
% (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: tree.pl,v $
% Revision 1.1  2014/01/28 06:18:51  jlang
% Added tree and graph examples.
%
% ==========================================================================
treeA(X) :- X=
t(73,
  t(31,
    t(5,nil,nil),
    nil),
  t(101,
    t(83,
      t(97,nil,nil),
      nil),
    nil)).

treeB(X) :- X=
t(73, 
  t(31, 
    t(5, nil, nil), 
    nil), 
  t(101, 
    t(83, nil, 
      t(97, nil, nil)),
    nil)).