Separando lista de fatos no prólogo

Question

Tenho uma lista de fatos no Prolog. Dizer:

L = [mother(sue), father(sam), mother(rachel), mother(izzie), father(leo)] 

Eu quero separá-los em duas listas

L1 = [mother(sue), mother(rachel), mother(izzie)]
L2 = [father(sam), father(leo)]

Como faço isso no Prolog

Answer 1

Espero não estar fazendo sua lição de casa para você, mas aqui está:

split([], [], []).
split([mother(X)|L], [mother(X)|L1], L2) :- split(L, L1, L2).
split([father(X)|L], L1, [father(X)|L2]) :- split(L, L1, L2).

Uso:

?- split([mother(sue), father(sam), mother(rachel), mother(izzie), father(leo)], L1, L2).
L1 = [mother(sue), mother(rachel), mother(izzie)],
L2 = [father(sam), father(leo)]