diff options
Diffstat (limited to 'prolog/problems/lists/permute_2')
| -rw-r--r-- | prolog/problems/lists/permute_2/common.py | 77 | ||||
| -rw-r--r-- | prolog/problems/lists/permute_2/sl.py | 76 |
2 files changed, 151 insertions, 2 deletions
diff --git a/prolog/problems/lists/permute_2/common.py b/prolog/problems/lists/permute_2/common.py index e39300b..3035159 100644 --- a/prolog/problems/lists/permute_2/common.py +++ b/prolog/problems/lists/permute_2/common.py @@ -2,6 +2,9 @@ from operator import itemgetter import prolog.engine +import prolog.util +import socket +from server.hints import Hint, HintPopup import server.problems id = 107 @@ -19,6 +22,19 @@ permute(L, [X|P]) :- permute(L1, P). ''' +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'), + 'recursive_case': Hint('recursive_case'), + 'timeout': Hint('timeout'), + 'base_case_arbitrary': Hint('base_case_arbitrary'), + 'second_base_case_missing': Hint('second_base_case_missing'), + 'unsuccessful_conc_use': Hint('unsuccessful_conc_use'), + 'forcing_result_onto_recursion': Hint('forcing_result_onto_recursion'), +} + test_cases = [ ('permute([], X)', [{'X': '[]'}]), @@ -48,5 +64,64 @@ def test(code, aux_code): 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'}] + + # general unsuccessful use of conc (not appropriate for this exercise) + if prolog.util.Token('NAME', 'conc') in tokens: + return [{'id': 'unsuccessful_conc_use'}] + + # recursion is getting bigger and bigger + + + # forcing result onto recursion; case of divide(T, [H1|L1], [H2|L2]) + if not prolog.engine.ask_truthTO(engine_id, 'divide([a,b,c], _, _)') and \ + prolog.engine.ask_truthTO(engine_id, + 'asserta( divide([cob], [yowza,cob], [brix]) ), divide([yowza,brix,cob], [cob], []), retract( divide([cob], [yowza,cob], [brix]) )'): + return [{'id': 'forcing_result_onto_recursion'}] + + # base case succeeds with arbitrary result + if prolog.engine.ask_truthTO(engine_id, 'divide([], L1, L2), (var(L1) ; var(L2))') or \ + prolog.engine.ask_truthTO(engine_id, 'divide([q], L1, L2), (var(L1) ; var(L2))') or \ + prolog.engine.ask_truthTO(engine_id, 'divide([q], [q|L1], L2), (var(L1) ; var(L2))'): + return [{'id': 'base_case_arbitrary'}] + + # one base case ok, the other one is missing (or bad) + # only trigger when recursion also works, because that makes more sense to the student + # than immediately telling him or her that there is another base case missing + if prolog.engine.ask_truthTO(engine_id, + 'divide([a,b], [a], [b]), \+ divide([a,b,c], [a,c], [b]) ; \+ divide([a,b], [a], [b]), divide([a,b,c], [a,c], [b])'): + return [{'id': 'second_base_case_missing'}] + + # missing/failed base case + if not prolog.engine.ask_truth(engine_id, 'divide([], [], [])'): + return [{'id': 'base_case'}] + +# # target predicate seems to always be false +# if not prolog.engine.ask_truthTO(engine_id, 'divide([_,_,_,_,_], _, _)') and \ +# not prolog.engine.ask_truthTO(engine_id, 'divide([_,_,_,_,_,_], _, _)'): +# return [{'id': 'predicate_always_false'}] + + # base cases work, the recursive doesn't (but it doesn't timeout) + # this may be left as the last, most generic hint + if not prolog.engine.ask_truth(engine_id, 'divide([qa,qb,qc,qd], [qa,qc], [qb,qd])'): + return [{'id': 'recursive_case'}] + + except socket.timeout as ex: + return [{'id': 'timeout'}] + + finally: + if engine_id: + prolog.engine.destroy(engine_id) + return [] diff --git a/prolog/problems/lists/permute_2/sl.py b/prolog/problems/lists/permute_2/sl.py index 8079b90..2237a54 100644 --- a/prolog/problems/lists/permute_2/sl.py +++ b/prolog/problems/lists/permute_2/sl.py @@ -17,4 +17,78 @@ description = '''\ L = [3,2,1]. </pre>''' -hint = {} +plan = ['''\ +<p><img src="[%@resource plan.svg%]" /></p> +<p>Saj veš kako je šlo v osnovni šoli: prvi, drugi, prvi, ...</p> +''', '''\ +<p>Znaš vzeti dva elementa z začetka seznama? Vzorec je <code>[H1,H2|T]</code>.</p> +''', '''\ +<p>Vzameš dva elementa z začetka, preostanek rekurzivno razdeliš in to, kar vrne rekurzija, primerno +dopolniš s prej odvzetima elementoma. S tem, ko si vzel dva elementa z začetka, si problem zmanjšal.</p> +''', '''\ +<p>Če predpostavim, da rekurzija razdeli rep <code>T</code> na podseznama <code>L1</code> in <code>L2</code> +ter ob vračanju v <code>L1</code> na začetek dodam <code>H1</code> in v <code>L2</code> na začetek +dodam <code>H2</code>, potem sem razdelil začetni seznam, ki je oblike <code>[H1,H2|T]</code>.</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).</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? Kaj, če je seznam prazen?</p> +''', + + 'base_case_arbitrary': '''\ +<p>Kako je lahko rezultat delitve seznama poljuben seznam oz. karkoli?</p> +<p>Če je tvoj robni pogoj v stilu <code>divide([], _, _)</code> ali <code>divide([X], [X|_], ...)</code>, +ga še enkrat premisli: kaj je rezultat delitve, kaj vračaš? Robni pogoj je vedno dokončno specificirana +rešitev, tu načeloma ni neznank (<code>_</code> ali spremenljivk brez prirejenih vrednosti) v tem kar se vrača.</p> +''', + + 'second_base_case_missing': '''\ +<p>Rekurzija se ne konča vedno uspešno. Sta morda dva različna primera kako se lahko izteče? Saj veš, +sodo in liho ;) Je morda potreben še kakšen robni pogoj? Poskusi naslednja klica, eden bo uspešen, drugi pa ne:</p> +<p><code>?- divide([a,b,c], L1, L2).</code></p> +<p><code>?- divide([a,b,c,d], L1, L2).</code></p> +''', + + 'unsuccessful_conc_use': '''\ +<p>Uporabljaš <code>conc/3</code>? Pri tej nalogi to ni najboljša ideja, ker <code>conc/3</code> deli "v kosih", +težko boš prišel do posameznih elementov. Poskusi raje brez.</p> +''', + + 'forcing_result_onto_recursion': ''' +<p>Ne vsiljuj rekurziji kaj naj vrne, prepusti se ji. To je tisti del, ko narediš predpostavko, +če je ta izpolnjena, potem bo tvoje pravilo delovalo za večji primer.</p> +<p>Je tvoj rekurzivni klic oblike <code>divide(T, [H1|...], [H2|...])</code>? S tem vsiljuješ rekurziji +da mora <emph>vrniti</emph> tudi obe glavi, ki jih sploh ne pozna, ker si jih ravnokar vzel stran! To moraš +narediti ti z rezultati, ki jih rekurzija vrne. Skratka, elementa <code>H1</code> in <code>H2</code> +dodaj izven rekurzivnega klica.</p> +''', + + 'recursive_case': '''\ +<p>Robni primeri delujejo. Kaj pa rekurzivni, splošni, primer?</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> +''', +} |