Ultimo Codigo

Después de mucho código e intentos tenemos un resultado de la parte de fechas y torneos, las consultas y sus respectivos resultados se encuentran abajo. también adjunto el código para poder realizar sus pruebas. Saludos.

CÓDIGO VISUAL

---

CONSULTAS

---

CÓDIGO PARA COPIAR

---

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

partidos(
       [A,B,C,D],
       [
  partido(A,B), partido(C,D),
  partido(A,D), partido(B,C),
  partido(A,C), partido(B,D)
       ]
      ).

fechas(
       [A,B,C,D],
       [
  fecha(1,[partido(A,B), partido(C,D)]),
  fecha(2,[partido(A,D), partido(B,C)]),
  fecha(3,[partido(A,C), partido(B,D)])
       ]
      ).

torneoIda(
       [A,B,C,D],'Torneo una sola Vuelta',
       [
  fecha(1,[partido(A,B), partido(C,D)]),
  fecha(2,[partido(A,D), partido(B,C)]),
  fecha(3,[partido(A,C), partido(B,D)])
       ]
      ).

torneoIdaVuelta(
       [A,B,C,D],'Torneo Ida y Vuelta',
       [
  fecha(1,[partido(A,B), partido(C,D)]),
  fecha(2,[partido(A,D), partido(B,C)]),
  fecha(3,[partido(A,C), partido(B,D)])
       ],
       [
           fecha(4,[partido(B,A), partido(D,C)]),
  fecha(5,[partido(D,A), partido(C,B)]),
  fecha(6,[partido(C,A), partido(D,B)])

       ]
      ).


% Consulta Partidos
% partidos([boca,river,racing,independiente], ListadoPartidos).
%
% Consulta Fechas
% fechas([boca,river,racing,independiente],ListadoFechas).
%
% Consulta Torneo Solo Ida
% torneoIda([boca,river,racing,independiente],NombreDelTorneo,ListadoFechas).
%
% Consulta Toneo Ida Vuelta
% torneoIdaVuelta([boca,river,racing,independiente],NombreDelTorneo,FechasIda,FechasVuelta).