Prolog-cut＆fail

Question

我有这个功能梳子（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).