Define a predicate segregate/3 that takes a list of integers as an argument and
ID: 3731916 • Letter: D
Question
Define a predicate segregate/3 that takes a list of integers as an argument and generates two lists, the first containing containing the even numbers from the original list and the second sublist containing the odd numbers from the original list. Your predicate should have the signature segregate(List, Even, Odd). Examples:
?- segregate([8,7,6,5,4,3], Even, Odd).
Even = [8,6,4]
Odd = [7,5,3]
?- segregate([7,2,3,5,8], Even, Odd).
Even = [2,8]
Odd = [7,3,5]
?- segregate([-4,11,-7,9,0], Even, Odd).
Even = [-4,0]
Odd = [11,-7,9]
?- segregate([5,13,29], Even, Odd).
Even = []
Odd = [5,13,29]
?- segregate([], Even, Odd).
Even = []
Odd = []
Explanation / Answer
segregate([],[],[]). % if empty list is passed.
% Condition to seperate Even numbers
segregate([X|Xs],[X|Es],Os) :- X mod 2 =:= 0,segregate(Xs,Es,Os).
% Condition to seperate Odd numbers
segregate([X|Xs],Es,[X|Os]) :- X mod 2 =:= 1,segregate(Xs,Es,Os).