2 files changed, 28 insertions, 0 deletions
diff --git a/prolog/problems/sets/powerset_2/common.py b/prolog/problems/sets/powerset_2/common.py
new file mode 100644
index 0000000..8f3b70e
--- /dev/null
+++ b/prolog/problems/sets/powerset_2/common.py
@@ -0,0 +1,16 @@
+id = 134
+group = 'sets'
+number = 41
+visible = True
+facts = None
+
+solution = '''\
+subset134([], []).
+subset134([H|T], [H|T1]) :-
+  subset134(T, T1).
+subset134([_|T], T1) :-
+  subset134(T, T1).
+
+powerset(Set, PowerSet) :-
+  findall(S, subset134(Set, S), PowerSet).
+'''
diff --git a/prolog/problems/sets/powerset_2/en.py b/prolog/problems/sets/powerset_2/en.py
new file mode 100644
index 0000000..6471469
--- /dev/null
+++ b/prolog/problems/sets/powerset_2/en.py
@@ -0,0 +1,12 @@
+id = 134
+name = 'powerset/2'
+slug = 'find all subsets of a set'
+
+description = '''\
+<p><code>powerset(Set, Powerset)</code>: the list <code>Powerset</code> contains all subsets of <code>Set</code>.</p>
+<pre>
+  ?- powerset([1,2,3], L).
+    L = [[1,2,3],[1,2],[1,3],[1],[2,3],[2],[3],[]].
+</pre>'''
+
+hint = {}