====== List linking 2 ======
{{tag>lists}}
===== Description =====
Merging ordered lists

**Source**:  The Art of Prolog
===== Download =====
Program source code: {{list_linking_2.pl}}
===== Listing =====
<code prolog>
/*
   merge(Xs,Ys,Zs) :- 
	Zs is an ordered list of integers obtained from 
	merging the ordered lists of integers Xs and Ys.
*/
     merge([X|Xs],[Y|Ys],[X|Zs]) :-
	X < Y, merge(Xs,[Y|Ys],Zs).
     merge([X|Xs],[Y|Ys],[X,X|Zs]) :-
	X =:= Y, merge(Xs,Ys,Zs).
     merge([X|Xs],[Y|Ys],[Y|Zs]) :-
	X > Y, merge([X|Xs],Ys,Zs).
     merge([],[X|Xs],[X|Xs]).
     merge(Xs,[],Xs).

%  Program 7.2    Merging ordered lists
</code>
===== Comments =====