% ==========================================================================
% $Id: graph.pl,v 1.2 2014/02/06 15:54:25 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: graph.pl,v $
% Revision 1.2  2014/02/06 15:54:25  jlang
% Change to undirected graph.
%
% Revision 1.1  2014/01/28 06:18:50  jlang
% Added tree and graph examples.
%
% ==========================================================================
edge(g(Ns,Edges),N1,N2,Weight):- 
           member(edge(N1,N2,Weight),Edges);
           member(edge(N2,N1,Weight),Edges).


graphA(X) :- X=g([a,b,c,d,e,f],
		 [edge(a,b,3), edge(a,c,5), edge(a,d,7), 
		  edge(e,f,1), edge(d,f,6)]).