如何在Prolog中迭代生成数组的所有子集，并将它们存储到另一个数组中？

Question

我知道使用此代码递归非常容易

subsets([], []).
subsets([E|Tail], [E|NTail]):-
   subsets(Tail, NTail).
subsets([_|Tail], NTail):-
   subsets(Tail, NTail).

但我希望通过迭代生成它们将它们存储到数组中。例如：L = [1,2,3] - ＆gt;结果= [[]，[1]，[2]，[3]，[1,2]，[1,3]，[2,3]，[1,2,3]]。