lists - prolog listing example

Combinatios en List of LIsts Prolog

Question

Necesito encontrar las combinaciones en una lista de listas. Por ejemplo, da la siguiente lista,

Lista = [[1, 2], [1, 2, 3]]

Estos deberían ser el resultado,

Comb = [[1,1,1], [1,2], [1,3], [2,1], [2,2], [2,3]]

Otro ejemplo:

Lista = [[1,2], [1,2], [1,2,3]]

Comb = [[1,1,1], [1,1,2], [1,1,3], [1,2,1], [1,2,2], [1,2,3] .... etc]

Sé cómo hacerlo para obtener una lista con dos sublistas, pero debe funcionar para cualquier cantidad de sublistas.

Soy nuevo en Prolog, por favor ayuda.

Answer 1

try([],[]).
try([L|Ls],[M|Ms]):-
member(M,L),
try(Ls,Ms).
all(L,All) :- findall(M, try(L,M), All).

try devuelve una lista compuesta por elementos de las sublistas del primer argumento. todos encuentran todas esas listas.

Answer 2

Aquí está su respuesta, corta y seca, como un nuevo programador de prólogos nuevo.

%elementInList(input list, output answer)
answer(ListOfList, AnswerInList) :-
findall(Ans, combList(ListOfList, Ans), AnswerInList).
%combList(ListOfList, Comb) :-
combList([], []).
combList([Head|Tail], Comb) :-
combList(Tail, [Element|Tempcomb]),
elementInList(Head, Element).
%elementInList(List, Element)
elementInList([Head|_], Head).
elementInList([Head|Tail], Element) :-
elementInList(Tail, Element).

Utilizando la respuesta de definición (InputList, OutputResult), donde, por ejemplo

answer([[1,2],[7,8]],Comb).
Comb = [[1, 7], [2, 7], [1, 8], [2, 8]].

y por ejemplo

answer([[1,2],[2,8],[3,6,9]],Comb).
Comb = [[1, 2, 3], [2, 2, 3], [1, 8, 3], [2, 8, 3], [1, 2, 6], [2, 2, 6], [1, 8|...], [2|...], [...|...]|...].

y así sucesivamente [X, Y, Z, ..] para cualquier cantidad de sublistas. De nada.