diff options
Diffstat (limited to 'prolog/problems/lists/del_3')
| -rw-r--r-- | prolog/problems/lists/del_3/common.py | 64 | ||||
| -rw-r--r-- | prolog/problems/lists/del_3/sl.py | 65 |
2 files changed, 126 insertions, 3 deletions
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> +''', +} |