Subversion Repositories programming

Rev

Rev 107 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 108
Line 1... Line 1...
1 
% Written By: Ira Snyder
 1 
% Written By: Ira Snyder
2 
% Due Date:   03-09-2005
 2 
% Due Date:   03-09-2005
3 
% Homework #: 14 (Exercise #22)
 3 
% Homework #: 14 (Exercise #22)
- 
 
 4 
% License: Public Domain
4 
 
 5 
 
5 
diff_one(0,1).
 6 
diff_one(0,1).
6 
diff_one(X,Y) :- diff_one(A,B), X is A+1, Y is B+1.
 7 
diff_one(X,Y) :- diff_one(A,B), X is A+1, Y is B+1.
7 
 
 8 
 
8 
inc([],[]).
 9 
inc([],[]).