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).