我有一个包含元素的列表：原子和其他列表。我问以下问题：
-？totobola（[1，x，2,1，x，2,1，x，2,1，x，[1，x]，[1，x，2]]，LS）。
我希望将LS其作为一个列表，在其中我将显示每个原子，然后显示给定列表内列表的可能组合。
LS = [1，x，2,1，x，2,1，x，2,1，x，1,1];
LS = [1，x，2,1，x，2,1，x，2,1，x，1，x];
LS = [1，x，2,1，x，2,1，x，2,1，x，1,2];
LS = [1，x，2,1，x，2,1，x，2,1，x，x，1];
LS = [1，x，2,1，x，2,1，x，2,1，x，x，x];
LS = [1，x，2,1，x，2,1，x，2,1，x，x，2];
不
我当前的解决方案：
lista([_|_]):- true, !.
lista(_):- false.
totobola([],[]).
totobola([X|T1],[Y|T2]):-
lista(X),
!,
member(Y,X),
totobola(T1,T2).
totobola([X|T1],[X|T2]):-
totobola(T1,T2).
与lista我检查是否X是列表，但不是得到LS=[1,x,2,1,x,2,1,x,2,1,x,1,1];我LS = [1, x, 2, 1, x, 2, 1, x, 2|...]
有人可以指导我，或者至少告诉我我做错了或不正确的事情吗？
提前致谢！
进行“重复”。查询，然后按“ w”键和“。” 您将进入写入模式，并查看列表中的所有值。
？- 重复。
true [write]->按下w一次
true之后。->输入一个点退出
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句