name = 'powerset/2' slug = 'find all subsets of a set' description = '''\
powerset(Set, Powerset): the list Powerset contains all subsets of Set.
powerset(Set, Powerset)
Powerset
Set
?- powerset([1,2,3], L). L = [[1,2,3],[1,2],[1,3],[1],[2,3],[2],[3],[]].