From ada33434a28fb1cf90dd77ae6c01860e0445c59c Mon Sep 17 00:00:00 2001 From: Aleksander Sadikov Date: Fri, 11 Mar 2016 02:12:16 +0100 Subject: Plans for dup/2 added. --- prolog/problems/lists/dup_2/sl.py | 72 ++++++++++++++++++++++++++++++++++++++- 1 file changed, 71 insertions(+), 1 deletion(-) (limited to 'prolog/problems/lists/dup_2/sl.py') diff --git a/prolog/problems/lists/dup_2/sl.py b/prolog/problems/lists/dup_2/sl.py index 7d8532d..eeefbd0 100644 --- a/prolog/problems/lists/dup_2/sl.py +++ b/prolog/problems/lists/dup_2/sl.py @@ -12,4 +12,74 @@ description = '''\ X = [1,1,2,2,3,3]. ''' -hint = {} +plan = [''' +

Klasična rekurzivna naloga. Bodimo pogumni in privzemimo, da že imamo podvojen rep seznama. +Potem je vse kar moramo še storiti to, da podvojimo glavo (H postane H, H) in to dodamo pred +podvojen rep.

+''', '''\ +

Robni pogoj mora biti enostaven, kajne? Kaj, če seznam sploh nima elementov, kaj je potem rezultat?

+''', '''\ +

Če imam podvojen rep DT in pred to postavim dve glavi [H, H], +potem je to skupaj ravno podvojen seznam.

+

Kako pa dobim podvojen rep? Rep je manjši od celega seznama, zato si lahko privoščim rekurzijo!

+'''] + +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 +insert/3 delujoč tudi v kakšni drugi smeri. To bo kasneje znalo priti prav!

+

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? Na katero mesto v seznamu najlažje vstaviš nek element?

+''', + + 'recursive_case': '''\ +

Robni primer deluje. Kaj pa rekurzivni, splošni, primer?

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

+''', + + 'ins_results_in_empty_list': '''\ +

Kako je lahko rezultat vstavljanja v seznam prazen seznam?

+

Če je to tvoj robni pogoj, ga še enkrat premisli: kaj je rezultat vstavljanja?

+''', + + 'ins_results_in_arbitrary_result': '''\ +

Kako je lahko rezultat vstavljanja v seznam poljuben seznam oz. karkoli?

+

Če je to tvoj robni pogoj, ga še enkrat premisli: kaj je rezultat vstavljanja?

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

Element je vstavljen, ampak vsi pred njim so se pa izgubili, kajne? +Si pozabil dati glavo nazaj na začetek seznama, ko se vračaš iz rekurzije?

+

Poskusi postaviti naslednje vprašanje prologu in preglej vse rešitve:

+

?- insert(q, [a,b,c,d], L).

+''', + + 'leading_heads_all_x': '''\ +

Si morda pozabil (copy/paste?) in uporabil [X|T] namesto bolj splošnega +[H|T] v rekurzivnem primeru?

+

Od spodnjih dveh vprašanj prologu prvo deluje, drugo pa ne.

+

?- insert(d, [d,d,d,d,e,f,g], L).

+

?- insert(d, [a,b,c,d,e,f,g], L).

+''', +} -- cgit v1.2.1