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