summaryrefslogtreecommitdiff
path: root/prolog/problems/family_relations/father_2/common.py
diff options
context:
space:
mode:
Diffstat (limited to 'prolog/problems/family_relations/father_2/common.py')
-rw-r--r--prolog/problems/family_relations/father_2/common.py13
1 files changed, 9 insertions, 4 deletions
diff --git a/prolog/problems/family_relations/father_2/common.py b/prolog/problems/family_relations/father_2/common.py
index 0c65a83..11f0742 100644
--- a/prolog/problems/family_relations/father_2/common.py
+++ b/prolog/problems/family_relations/father_2/common.py
@@ -25,6 +25,7 @@ hint_type = {
'x_must_be_parent': Hint('x_must_be_parent'),
'y_can_be_of_any_gender': Hint('y_can_be_of_any_gender'),
'y_need_not_be_parent': Hint('y_need_not_be_parent'),
+ 'predicate_always_false': Hint('predicate_always_false'),
}
test_cases = [
@@ -92,15 +93,19 @@ def hint(code, aux_code):
return [{'id': 'x_must_be_parent'}]
# Y can be of any gender, incl. female
- if prolog.engine.ask_one(engine_id,
- 'father(_, Y), female(Y)') == 'false':
+ if prolog.engine.ask_truth(engine_id, 'father(_, Y)') and \
+ prolog.engine.ask_one(engine_id, 'father(_, Y), female(Y)') == 'false':
return [{'id': 'y_can_be_of_any_gender'}]
# Y does not necessarily need to be a parent
- if prolog.engine.ask_one(engine_id,
- 'father(_, Y), \+ parent(Y, _)') == 'false':
+ if prolog.engine.ask_truth(engine_id, 'father(_, Y)') and \
+ prolog.engine.ask_one(engine_id, 'father(_, Y), \+ parent(Y, _)') == 'false':
return [{'id': 'y_need_not_be_parent'}]
+ # target predicate seems to always be false
+ if prolog.engine.ask_one(engine_id, 'father(_, _)') == 'false':
+ return [{'id': 'predicate_always_false'}]
+
except socket.timeout as ex:
pass