diff options
author | Aleksander Sadikov <aleksander.sadikov@fri.uni-lj.si> | 2016-03-08 23:40:13 +0100 |
---|---|---|
committer | Aleksander Sadikov <aleksander.sadikov@fri.uni-lj.si> | 2016-03-08 23:40:13 +0100 |
commit | 7ddbe59588b3fd34fa9efc39ab56055f925d29ac (patch) | |
tree | 48292cd307a185b8a1be723a24578777fd343f28 /prolog/problems/lists/memb_2 | |
parent | 16a5005880a75537ba7450d07512d27cca05fbf3 (diff) |
Hints for memb/2 added.
Diffstat (limited to 'prolog/problems/lists/memb_2')
-rw-r--r-- | prolog/problems/lists/memb_2/common.py | 18 | ||||
-rw-r--r-- | prolog/problems/lists/memb_2/sl.py | 20 |
2 files changed, 32 insertions, 6 deletions
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,7 +29,7 @@ Ker je nov seznam manjši, sem tudi problem zmanjšal.</p> hint = { 'eq_instead_of_equ': '''\ <p>Operator <code>==</code> je strožji od operatorja <code>=</code> v smislu, da je za slednjega dovolj, -da elementa lahko naredi enaka (unifikacija). Morda z uporabo <code>=</code> naredimo predikat +da elementa lahko naredi enaka (unifikacija). Morda z uporabo <code>=</code> narediš predikat <code>member/2</code> delujoč tudi v kakšni drugi smeri.</p> ''', @@ -37,6 +37,11 @@ da elementa lahko naredi enaka (unifikacija). Morda z uporabo <code>=</code> nar <p>Morda bi bil bolj primeren operator za unifikacijo (=)?</p> ''', + 'base_case': '''\ +<p>Si pomislil na robni pogoj? Kaj je najbolj enostaven primer, ko je element v seznamu? +Do katerega elementa najlažje prideš?</p> +''', + 'predicate_always_false': '''\ <p>Vse kaže, da tvoj predikat vedno vrne "false". Si mu dal pravilno ime, si se morda pri imenu zatipkal?</p> <p>Če je ime pravilno, se morda splača preveriti tudi, če se nisi zatipkal kje drugje, @@ -45,7 +50,18 @@ je morda kakšna pika namesto vejice ali obratno, morda kakšna spremenljivka z da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobnega).</p> ''', + 'timeout': '''\ +<p>Je morda na delu potencialno neskončna rekurzija? Kako se bo ustavila?</p> +</p>Morda pa je kriv tudi manjkajoč, neustrezen ali preprosto nekompatibilen (s splošnim primerom) robni pogoj?</p> +''', + 'final_hint': '''\ -<p>Member se da uporabljati še za kaj drugega kot samo za iskanje elementa v seznamu.</p> +<p>Predikat <code>member/2</code> 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 +<code>X</code>, ki je v seznamu <code>L</code>. V bistvu si spisal generator elementov iz seznama."</p> +<p>Poskusi prolog vprašati tole:</p> +<p><code>?- memb(Coin, [1,2,5,10,20,50,100,200]).</code></p> +<p>ali pa tole:</p> +<p><code>?- memb(Operator, [+, -, *, /]).</code></p> ''', } |