From 7ddbe59588b3fd34fa9efc39ab56055f925d29ac Mon Sep 17 00:00:00 2001 From: Aleksander Sadikov Date: Tue, 8 Mar 2016 23:40:13 +0100 Subject: Hints for memb/2 added. --- prolog/problems/lists/memb_2/common.py | 18 ++++++++++++++---- prolog/problems/lists/memb_2/sl.py | 20 ++++++++++++++++++-- 2 files changed, 32 insertions(+), 6 deletions(-) (limited to 'prolog/problems') diff --git a/prolog/problems/lists/memb_2/common.py b/prolog/problems/lists/memb_2/common.py index 9ac56f6..e04535a 100644 --- a/prolog/problems/lists/memb_2/common.py +++ b/prolog/problems/lists/memb_2/common.py @@ -22,6 +22,8 @@ hint_type = { 'eq_instead_of_equ_markup': HintPopup('eq_instead_of_equ_markup'), 'eq_instead_of_equ': Hint('eq_instead_of_equ'), 'predicate_always_false': Hint('predicate_always_false'), + 'base_case': Hint('base_case'), + 'timeout': Hint('timeout'), 'final_hint': Hint('final_hint'), } @@ -59,21 +61,29 @@ def hint(code, aux_code): try: engine_id, output = prolog.engine.create(code=code+aux_code, timeout=1.0) - # gender testing is redundant - # this is not necessarily wrong, but worth mentioning anyway + # strict equality testing instead of simple matching + # this is usually (but not necessarily) wrong targets = [prolog.util.Token('EQ', '==')] marks = [(t.pos, t.pos + len(t.val)) for t in tokens if t in targets] if marks: return [{'id': 'eq_instead_of_equ_markup', 'start': m[0], 'end': m[1]} for m in marks] + \ [{'id': 'eq_instead_of_equ'}] + # recursion is getting bigger and bigger + + # target predicate seems to always be false - if not prolog.engine.ask_truth(engine_id, 'grandparent(_, _)'): + if not prolog.engine.ask_truthTO(engine_id, 'memb(_, _)'): return [{'id': 'predicate_always_false'}] + # missing/failed base case + if not prolog.engine.ask_truthTO(engine_id, 'memb(qq, [qq|_])'): + return [{'id': 'base_case'}] + + # TODO: Tim, can we include 'fail'-used as a general hint? except socket.timeout as ex: - pass + return [{'id': 'timeout'}] finally: if engine_id: diff --git a/prolog/problems/lists/memb_2/sl.py b/prolog/problems/lists/memb_2/sl.py index 1aa15b1..2c4c345 100644 --- a/prolog/problems/lists/memb_2/sl.py +++ b/prolog/problems/lists/memb_2/sl.py @@ -29,12 +29,17 @@ Ker je nov seznam manjši, sem tudi problem zmanjšal.

hint = { 'eq_instead_of_equ': '''\

Operator == je strožji od operatorja = v smislu, da je za slednjega dovolj, -da elementa lahko naredi enaka (unifikacija). Morda z uporabo = naredimo predikat +da elementa lahko naredi enaka (unifikacija). Morda z uporabo = narediš predikat member/2 delujoč tudi v kakšni drugi smeri.

''', 'eq_instead_of_equ_markup': '''\

Morda bi bil bolj primeren operator za unifikacijo (=)?

+''', + + 'base_case': '''\ +

Si pomislil na robni pogoj? Kaj je najbolj enostaven primer, ko je element v seznamu? +Do katerega elementa najlažje prideš?

''', 'predicate_always_false': '''\ @@ -43,9 +48,20 @@ da elementa lahko naredi enaka (unifikacija). Morda z uporabo = nar je morda kakšna pika namesto vejice ali obratno, morda kakšna spremenljivka z malo začetnico?

Možno je seveda tudi, da so tvoji pogoji prestrogi ali celo nemogoči (kot bi bila npr. zahteva, da je X hkrati starš in sestra od Y ali kaj podobnega).

+''', + + 'timeout': '''\ +

Je morda na delu potencialno neskončna rekurzija? Kako se bo ustavila?

+

Morda pa je kriv tudi manjkajoč, neustrezen ali preprosto nekompatibilen (s splošnim primerom) robni pogoj?

''', 'final_hint': '''\ -

Member se da uporabljati še za kaj drugega kot samo za iskanje elementa v seznamu.

+

Predikat member/2 se da uporabljati še za marsikaj drugega kot samo za preverjanje, če je +nek element v seznamu! Pravzaprav ga bomo večinoma uporabljali v "obratni" smeri kot "vrni mi nek element +X, ki je v seznamu L. V bistvu si spisal generator elementov iz seznama."

+

Poskusi prolog vprašati tole:

+

?- memb(Coin, [1,2,5,10,20,50,100,200]).

+

ali pa tole:

+

?- memb(Operator, [+, -, *, /]).

''', } -- cgit v1.2.1