From 79a91c6a6c4fabf6f3c8949a6735375ceac21989 Mon Sep 17 00:00:00 2001 From: Aleksander Sadikov Date: Wed, 9 Mar 2016 19:16:26 +0100 Subject: Hints for del/3 added. And some minor corrections/additions elsewhere. --- prolog/problems/lists/del_3/common.py | 64 ++++++++++++++++++++++++++++++++-- prolog/problems/lists/del_3/sl.py | 65 ++++++++++++++++++++++++++++++++++- prolog/problems/lists/memb_2/sl.py | 6 ++-- 3 files changed, 130 insertions(+), 5 deletions(-) (limited to 'prolog/problems/lists') 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]. ''' -hint = {} +plan = [''' +

V bistvu je ta naloga precej podobna nalogi memb/2, le da tokrat iskani element tudi zbrišemo. +Kje se lahko skriva iskani element X, da ga zbrišemo? Spomni se, da ima seznam dva dela, glavo in rep. +Torej sta možnosti dve!

+''', '''\ +

Kaj je najenostavnejša smiselna možnost? Morda brisanje prvega elementa?

+''', '''\ +

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.

+'''] + +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 = narediš predikat +del/3 delujoč tudi v kakšni drugi smeri.

+

Seveda pa lahko nalogo rešiš brez obeh omenjenih operatorjev, spomni se, da lahko unifikacijo narediš +implicitno že kar v argumentih predikata (glavi stavka).

+''', + + '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, kateri element v seznamu najlažje zbrišeš?

+''', + + 'predicate_always_false': '''\ +

Vse kaže, da tvoj predikat vedno vrne "false". Si mu dal pravilno ime, si se morda pri imenu zatipkal?

+

Č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?

+

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 podobno zlobnega).

+''', + + '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?

+''', + + 'del_from_empty_list_success': '''\ +

Iz praznega seznama ne moreš uspešno zbrisati nobenega elementa!

+

Č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"! :)

+

Če je to tvoj robni pogoj, ga še enkrat premisli: na katerem mestu je najlažje zbrisati element v seznamu?

+''', + + 'lost_heads': '''\ +

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?

+

Poskusi postaviti naslednje vprašanje prologu: +?- del(d, [a,b,c,d,e,f,g], L).

+''', + + 'final_hint': '''\ +

Zanimivost: operaciji vstavljanja in brisanja iz seznama sta si ravno nasprotni. Če se malce poigraš z +argumenti, lahko del/3 rešiš kar z insert/3.

+

Logično velja naslednje: če zbrišem X iz seznama BigList in dobim kot rezultat +seznam SmallList je isto kot če vstavim X v seznam SmallList in dobim +kot rezultat seznam BigList. ;)

+''', +} 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 = {

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

+

Seveda pa lahko nalogo rešiš brez obeh omenjenih operatorjev, spomni se, da lahko unifikacijo narediš +implicitno že kar v argumentih predikata (glavi stavka).

''', 'eq_instead_of_equ_markup': '''\ @@ -47,12 +49,12 @@ Do katerega elementa najlažje prideš?

Č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?

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).

+da je X hkrati starš in sestra od Y ali kaj podobno zlobnega).

''', '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?

+

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

''', 'final_hint': '''\ -- cgit v1.2.1