# coding=utf-8 name = 'shiftright/2' slug = 'Premakni elemente seznama za eno mesto v desno' description = '''\
shiftright(L1, L2)
: elemente v seznamu L1
za eno mesto premaknemo v desno ("circular shift").
?- shiftright([1,2,3,4,5], X). X = [5,1,2,3,4].''' plan = ['''\
V seznamu vzamem zadnji element in ga dodam preostanku na začetek. Saj se še spomniš od prejšnjič kako vzameš zadnji element seznamu? Dodajanje na začetek pa je povsem preprosto, kajne?
''', '''\Seznam dolžine ena je videti kot vzorec [X]
. To bi znalo priti prav, kakor tudi predikat
conc/3
.
Če je podani seznam L
sestavljen iz zadnjega elementa E
in preostanka L1
in če E
dodamo na začetek L1
, potem je rezultat seznam L
premaknjen
v desno.
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': '''\Morda bi bil bolj primeren operator za unifikacijo (=)?
''', '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 N
enako kot N + 1
ali kaj podobno logično zlobnega).
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?
''', 'conc_2nd_argument_not_1elem_list': '''\Se spomniš kako izgleda "vzorec", ki predstavlja seznam s točno enim elementom? Ne tako kot drugi argument, ki
si ga podal predikatu conc/3
. ;)
Si pravilno povezal vse spremenljivke? Zgleda namreč, da vračaš kar poljuben rezultat (spremenljivko brez določene vrednosti). Opozorila "singleton variables" večinoma ni pametno ignorirati.
''', 'shiftleftish_solution': '''\Rep seznama je vedno seznam in ne element. Kako si dobil zadnji element? Tako ne bo šlo...
''', 'last_used': '''\S pomočjo predikata last/2
bo težko, ker zadnji element ostane v seznamu. Poskusi raje s
predikatom conc/3
.
Predikata shiftleft/2
in shiftright/2
naredita ravno nasprotni stvari. Če samo
obrneš argumente, dobiš drugega. Tako bi lahko sprogramiral shiftright/2
tudi samo s klicem
shiftleft/2
. Saj veš, v prologu večinoma ni določeno kaj so vhodi in kaj izhodi.