Modelo 2.0

equipo(river).
equipo(boca).
equipo(racing).
equipo(independiente).


partido(X,Y) :- equipo(X), equipo(Y), X \= Y.
listarPartidos(List) :- findall(partido(X,Y),partido(X,Y),List).


listarFechas([],[]).
listarFechas(Partidos,Fechas) :- perm(2,Partidos,Fechas).


perm(1, Input, [Last]) :-
    member(Last, Input).
perm(N, Input, [First,Second|Perm]) :-
    N > 1, N0 is N-1,
    member(First, Input),
    dif(First, Second),
    perm(N0, Input, [Second|Perm]).