diff options
author | Aleksander Sadikov <aleksander.sadikov@fri.uni-lj.si> | 2016-03-09 19:16:26 +0100 |
---|---|---|
committer | Aleksander Sadikov <aleksander.sadikov@fri.uni-lj.si> | 2016-03-09 19:16:26 +0100 |
commit | 79a91c6a6c4fabf6f3c8949a6735375ceac21989 (patch) | |
tree | d6b0447a89fe6354e2945f2073a5485a16ca2c62 /prolog | |
parent | c61d06eab2c15928a928fcea106f276013902bb0 (diff) |
Hints for del/3 added. And some minor corrections/additions elsewhere.
Diffstat (limited to 'prolog')
-rw-r--r-- | prolog/common.py | 5 | ||||
-rw-r--r-- | prolog/problems/family_relations/ancestor_2/sl.py | 2 | ||||
-rw-r--r-- | prolog/problems/family_relations/descendant_2/sl.py | 2 | ||||
-rw-r--r-- | prolog/problems/lists/del_3/common.py | 64 | ||||
-rw-r--r-- | prolog/problems/lists/del_3/sl.py | 65 | ||||
-rw-r--r-- | prolog/problems/lists/memb_2/sl.py | 6 |
6 files changed, 136 insertions, 8 deletions
diff --git a/prolog/common.py b/prolog/common.py index 65fc218..75006f7 100644 --- a/prolog/common.py +++ b/prolog/common.py @@ -37,7 +37,10 @@ def hint(code, aux_code): # this will have to be solved more generally targets = [prolog.util.Token('NAME', 'x'), prolog.util.Token('NAME', 'y'), prolog.util.Token('NAME', 'z'), prolog.util.Token('NAME', 'a'), - prolog.util.Token('NAME', 'b'), prolog.util.Token('NAME', 'c')] + prolog.util.Token('NAME', 'b'), prolog.util.Token('NAME', 'c'), + prolog.util.Token('NAME', 'h'), prolog.util.Token('NAME', 't'), + prolog.util.Token('NAME', 'l'), prolog.util.Token('NAME', 's'), + prolog.util.Token('NAME', 'w'), prolog.util.Token('NAME', 'v')] marks = [(t.pos, t.pos + len(t.val)) for t in tokens if t in targets] if marks: return [{'id': 'noncapitalised_variable_markup', 'start': m[0], 'end': m[1]} for m in marks] + \ diff --git a/prolog/problems/family_relations/ancestor_2/sl.py b/prolog/problems/family_relations/ancestor_2/sl.py index de66ba4..91f67e7 100644 --- a/prolog/problems/family_relations/ancestor_2/sl.py +++ b/prolog/problems/family_relations/ancestor_2/sl.py @@ -90,7 +90,7 @@ da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobnega '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> +<p>Morda pa je kriv tudi manjkajoč, neustrezen ali preprosto nekompatibilen (s splošnim primerom) robni pogoj?</p> ''', } diff --git a/prolog/problems/family_relations/descendant_2/sl.py b/prolog/problems/family_relations/descendant_2/sl.py index c53c8b9..020cda3 100644 --- a/prolog/problems/family_relations/descendant_2/sl.py +++ b/prolog/problems/family_relations/descendant_2/sl.py @@ -80,7 +80,7 @@ da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobnega '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> +<p>Morda pa je kriv tudi manjkajoč, neustrezen ali preprosto nekompatibilen (s splošnim primerom) robni pogoj?</p> ''', 'wrong_direction': '''\ diff --git a/prolog/problems/lists/del_3/common.py b/prolog/problems/lists/del_3/common.py index 23caf08..f3dfcb2 100644 --- a/prolog/problems/lists/del_3/common.py +++ b/prolog/problems/lists/del_3/common.py @@ -2,11 +2,14 @@ from operator import itemgetter import prolog.engine +import prolog.util +import socket +from server.hints import Hint, HintPopup import server.problems id = 105 number = 11 -visible = False +visible = True facts = None solution = '''\ @@ -15,6 +18,17 @@ del(X, [Y|T], [Y|L]) :- del(X, T, L). ''' +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'), + 'del_from_empty_list_success': Hint('del_from_empty_list_success'), + 'lost_heads': Hint('lost_heads'), +} + test_cases = [ ('del(1, [1], X)', [{'X': '[]'}]), @@ -41,8 +55,54 @@ def test(code, aux_code): prolog.engine.destroy(engine_id) hints = [{'id': 'test_results', 'args': {'passed': n_correct, 'total': len(test_cases)}}] + if n_correct == len(test_cases): + tokens = prolog.util.tokenize(code) + if prolog.util.Token('NAME', 'insert') not in tokens: + hints += [{'id': 'final_hint'}] return n_correct, len(test_cases), hints def hint(code, aux_code): - # TODO + tokens = prolog.util.tokenize(code) + + try: + engine_id, output = prolog.engine.create(code=code+aux_code, timeout=1.0) + + # 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 + + + # deleting from empty list succeeds with an emtpy list result + if prolog.engine.ask_truthTO(engine_id, 'del(_, [], _)'): + return [{'id': 'del_from_empty_list_success'}] + + # missing/failed base case + if not prolog.engine.ask_truthTO(engine_id, 'del(qQ, [qQ,qa,qb,qc], [qa,qb,qc])'): + return [{'id': 'base_case'}] + + # target predicate seems to always be false + if not prolog.engine.ask_truth(engine_id, 'del(_, [_,_,_,_,_,_], _)'): + return [{'id': 'predicate_always_false'}] + + # forgot to put list head(s) back in the list when deleting an element + if prolog.engine.ask_truth(engine_id, 'del(q, [a,b,c,d,q,x,y,z], [x,y,z])'): + return [{'id': 'lost_heads'}] + + # L=[H|T] at the end of the rule; this can be detected with test cases and can be wrong (in some sense) + # TODO: implement it, and provide a good explanation (might be hard) + + + except socket.timeout as ex: + return [{'id': 'timeout'}] + + finally: + if engine_id: + prolog.engine.destroy(engine_id) + return [] diff --git a/prolog/problems/lists/del_3/sl.py b/prolog/problems/lists/del_3/sl.py index 3c45408..2c17f77 100644 --- a/prolog/problems/lists/del_3/sl.py +++ b/prolog/problems/lists/del_3/sl.py @@ -17,4 +17,67 @@ description = '''\ X = 3, L = [1,2]. </pre>''' -hint = {} +plan = [''' +<p>V bistvu je ta naloga precej podobna nalogi <code>memb/2</code>, le da tokrat iskani element tudi zbrišemo. +Kje se lahko skriva iskani element <code>X</code>, da ga zbrišemo? Spomni se, da ima seznam dva dela, glavo in rep. +Torej sta možnosti dve!</p> +''', '''\ +<p>Kaj je najenostavnejša smiselna možnost? Morda brisanje prvega elementa?</p> +''', '''\ +<p>Kako brišem nekje iz repa? Seznam razbijem na glavo in rep, rekurzivno (problem je za en element manjši!) +brišem iz repa in ob vračanju iz rekurzije ne pozabim na prej "odtrgano" glavo.</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> narediš predikat +<code>del/3</code> delujoč tudi v kakšni drugi smeri.</p> +<p>Seveda pa lahko nalogo rešiš brez obeh omenjenih operatorjev, spomni se, da lahko unifikacijo narediš +implicitno že kar v argumentih predikata (glavi stavka).</p> +''', + + 'eq_instead_of_equ_markup': '''\ +<p>Morda bi bil bolj primeren operator za unifikacijo (=)?</p> +''', + + 'base_case': '''\ +<p>Si pomislil na robni pogoj? Kaj je najbolj enostaven primer, kateri element v seznamu najlažje zbrišeš?</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, +je morda kakšna pika namesto vejice ali obratno, morda kakšna spremenljivka z malo začetnico?</p> +<p>Možno je seveda tudi, da so tvoji pogoji prestrogi ali celo nemogoči (kot bi bila npr. zahteva, +da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobno zlobnega).</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> +''', + + 'del_from_empty_list_success': '''\ +<p>Iz praznega seznama ne moreš uspešno zbrisati nobenega elementa!</p> +<p>Če brišem iz praznega seznama, ne dobim praznega seznama ali tudi karkoli drugega kot rezultat, ampak naj prolog +preprosto ne uspe -- tega niti ne potrebuješ pisati kot pravilo, ker je to prologov privzet odgovor: +saj veš, da z največjim veseljem reče "no"! :)</p> +<p>Če je to tvoj robni pogoj, ga še enkrat premisli: na katerem mestu je najlažje zbrisati element v seznamu?</p> +''', + + 'lost_heads': '''\ +<p>Element je zbrisan, ampak prav tako so tudi vsi elementi pred njim, kajne? +Si pozabil dati glavo nazaj na začetek seznama, ko se vračaš iz rekurzije?</p> +<p>Poskusi postaviti naslednje vprašanje prologu: +<code>?- del(d, [a,b,c,d,e,f,g], L).</code></p> +''', + + 'final_hint': '''\ +<p>Zanimivost: operaciji vstavljanja in brisanja iz seznama sta si ravno nasprotni. Če se malce poigraš z +argumenti, lahko <code>del/3</code> rešiš kar z <code>insert/3</code>.</p> +<p>Logično velja naslednje: če zbrišem <code>X</code> iz seznama <code>BigList</code> in dobim kot rezultat +seznam <code>SmallList</code> je isto kot če <emph>vstavim</emph> <code>X</code> v seznam <code>SmallList</code> in dobim +kot rezultat seznam <code>BigList</code>. ;)</p> +''', +} diff --git a/prolog/problems/lists/memb_2/sl.py b/prolog/problems/lists/memb_2/sl.py index f2d0ce2..c1b0a47 100644 --- a/prolog/problems/lists/memb_2/sl.py +++ b/prolog/problems/lists/memb_2/sl.py @@ -31,6 +31,8 @@ hint = { <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> narediš predikat <code>memb/2</code> delujoč tudi v kakšni drugi smeri.</p> +<p>Seveda pa lahko nalogo rešiš brez obeh omenjenih operatorjev, spomni se, da lahko unifikacijo narediš +implicitno že kar v argumentih predikata (glavi stavka).</p> ''', 'eq_instead_of_equ_markup': '''\ @@ -47,12 +49,12 @@ Do katerega elementa najlažje prideš?</p> <p>Če je ime pravilno, se morda splača preveriti tudi, če se nisi zatipkal kje drugje, je morda kakšna pika namesto vejice ali obratno, morda kakšna spremenljivka z malo začetnico?</p> <p>Možno je seveda tudi, da so tvoji pogoji prestrogi ali celo nemogoči (kot bi bila npr. zahteva, -da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobnega).</p> +da je <code>X</code> hkrati starš in sestra od <code>Y</code> ali kaj podobno zlobnega).</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> +<p>Morda pa je kriv tudi manjkajoč, neustrezen ali preprosto nekompatibilen (s splošnim primerom) robni pogoj?</p> ''', 'final_hint': '''\ |