2 files changed, 30 insertions, 0 deletions
diff --git a/prolog/problems/sets/is_subset_2/common.py b/prolog/problems/sets/is_subset_2/common.py
new file mode 100644
index 0000000..5b365ee
--- /dev/null
+++ b/prolog/problems/sets/is_subset_2/common.py
@@ -0,0 +1,16 @@
+id = 132
+group = 'sets'
+number = 39
+visible = True
+facts = None
+
+solution = '''\
+memb132(X, [X|_]).
+memb132(X, [_|T]) :-
+  memb132(X, T).
+
+is_subset([], _).
+is_subset([H|T], S2) :-
+  memb132(H, S2),
+  is_subset(T, S2).
+'''
diff --git a/prolog/problems/sets/is_subset_2/en.py b/prolog/problems/sets/is_subset_2/en.py
new file mode 100644
index 0000000..ae2c113
--- /dev/null
+++ b/prolog/problems/sets/is_subset_2/en.py
@@ -0,0 +1,14 @@
+id = 132
+name = 'is_subset/2'
+slug = 'check if one set is a subset of another'
+
+description = '''\
+<p><code>is_subset(S1, S2)</code>: the set <code>S1</code> is a subset of <code>S2</code>.</p>
+<pre>
+  ?- is_subset([2,1,3,5,0], [3,2,1,4,5,9]).
+    false.
+  ?- is_subset([2,1,3,5], [3,2,1,4,5,9]).
+    true.
+</pre>'''
+
+hint = {}