4 lines
159 B
Text
4 lines
159 B
Text
| ?- set::powerset([1, 2, 3, 4], PowerSet).
|
|
|
|
PowerSet = [[],[1],[2],[1,2],[3],[1,3],[2,3],[1,2,3],[4],[1,4],[2,4],[1,2,4],[3,4],[1,3,4],[2,3,4],[1,2,3,4]]
|
|
yes
|