2 files changed, 26 insertions, 0 deletions
diff --git a/prolog/problems/family_relations/brother_2/common.py b/prolog/problems/family_relations/brother_2/common.py
new file mode 100644
index 0000000..c339644
--- /dev/null
+++ b/prolog/problems/family_relations/brother_2/common.py
@@ -0,0 +1,13 @@
+id = 97
+group = 'family_relations'
+number = 4
+visible = True
+facts = 'family_relations'
+
+solution = '''\
+brother(X, Y) :-
+  parent(P, X),
+  parent(P, Y),
+  male(X),
+  X \== Y.
+'''
diff --git a/prolog/problems/family_relations/brother_2/en.py b/prolog/problems/family_relations/brother_2/en.py
new file mode 100644
index 0000000..8cae8b8
--- /dev/null
+++ b/prolog/problems/family_relations/brother_2/en.py
@@ -0,0 +1,13 @@
+id = 97
+name = 'brother/2'
+slug = 'the brother relation'
+
+description = '''\
+<p><code>brother(X, Y)</code>: <code>X</code> is a brother of <code>Y</code>.</p>
+<pre>
+  ?- brother(jeffrey, X).
+    X = william ;
+    X = sally.
+</pre>'''
+
+hint = {}