Prolog-cut & fail

Question

我有这个函数comb(2,1,2,3，A)，它可以找到列表元素的组合。现在我想做一个函数，它将所有这些组合放在一个列表中，而不是在命令行中发送;：

 R=[[1, 2],[1, 3],[2, 3]]

而不是：

 A = [1, 2] ;
 A = [1, 3] ;
 A = [2, 3] ;

Answer 1

findall(A, comb(2, [1, 2, 3], A), R).