Nagyhatékonyságú Deklaratív Programozás Labor, 2025 tavaszi félév
Ez a lap a Nagyhatékonyságú Deklaratív Programozás Labor tárgy anyagára vonatkozó
információkat tartalmazza.
Friss hírek
- (2025.02.10) Hasznos anyagok Prologgal most ismerkedők számára:
- Prolog rendszerek:
SWI Prolog webes
felület, Tau Prolog
homokozó (keresési fa kirajzolásához)
- Deklaratív Programozás (DP)
c. tárgy legfrissebb (2024 őszi) kurzusának honlapja
- DP jegyzet és fogalomtár
letölthető erről a
lapról
- A Prolog végrehajtás gyakorlására szolgáló alkalmazás
- A DP tárgy 2020 őszi online kurzusának bevezető Prolog videói:
- ea06 (mp4, 01:27:50, 176 MB)
26:30 perctől
- ea07 (mp4, 01:29:36, 191 MB)
- ea08 (mp4, 01:28:42, 191 MB)
- A DP tárgy 2024 őszi kurzusának Prolog
gyakorlatai: első, második.
Előadásdiák (2025 tavasz)
Az első előadások diái:
A 2021. tavaszi félév videófelvételei (előadások és Prolog konzultációk)
A felvételek megtalálhatók
itt.
Ezen a linken feljövő táblázatban legalul található két
videó az NDP tárgyon belül tartott két kb. egyórás Prolog ismertető felvétele.
A 2002. évi előadásokról készült jegyzet-kézirat
Példaprogramok
- Programok - az első néhány előadáson
szereplő példaprogramok szövege, futási példákkal, plusz az első kisházi
megoldása bináris (.po) formában.
Házi feladatok
1. kis házi feladat:
A kiírás
innen
letölthető. A kiírás kiegészítéseként pontosítjuk a count/2
predikátummal szembeni elvárásokat:
- ne csináljon választási pontot (lásd a 4. futási példát a fólián).
-
count(L, N)
-ben, ha az L
lista N
db eleméről kiderül, hogy 1-es, akkor nem
vár további változó-behelyettesítésre és a fennmaradó változókat
behelyettesíti 0-ra.
Pl. a `count([X,Y,Z], 1), Z=1
' célsorozat az `X=0, Y=0, Z=1
' eredményt adja.
-
count(L, N)
-ben, ha az L
lista len(L)-N
db eleméről kiderül, hogy 0, akkor nem
vár további változó-behelyettesítésre és a fennmaradó változókat
behelyettesíti 1-re.
Pl. a `count([X,Y,Z], 2), Z=0
' célsorozat az `X=1, Y=1, Z=0
' eredményt adja.
A kis házi feladat "minta"-megvalósítása (.po formában, tehát futtathatóan,
de nem olvashatóan) és tesztpéldái az első három előadás példaprogramjaival
együtt letölthetőek
innen.
Az 1. kis házi feladat beadása:
A KHF az NDP ETS rendszerének
segítségével beadható.
A beadási határidő 2025. március 17, hétfő, 23:59.
2. kis házi feladat:
A kiírás a fóliákon megtalálható, de a szóbanforgó egy
oldal (PDF alakban) innen is
letölthető.
Fontos megjegyzesek:
- Az egyes "szavak" elemei különböző számok
kell legyenek.
- Egyes "szavak"-nak (pl. az egy kockából állóknak)
nincs megadva az összege, tehát ez esetben is x szerepel az összeg
helyén! (Lásd pl. az alábbi tesztpéldák között a
p2
példában a mátrix 4. sorának 3. oszlopában szereplő x\x
értéket!).
- A feladvány nemzetközi neve: kakuro, a rá vonatkozó Wikipédia
lap itt található.
- Hogyan oldjunk meg kakuro rejtvényeket:
videó.
- Sok interaktív feladványmegoldó is található a világhálón.
A kis házi feladat tesztpéldái megtalálhatók
itt.
A 2. kis házi feladat beadása:
A KHF az NDP ETS rendszerének segítségével adható be.
A beadási határidő 2025. március 31. hétfő, 23:59.
3. kis házi feladat:
A CLPFD gyakorló feladatsor
megoldása nlp3.pl
néven hamarosan beadható lesz az ETS-ben.
A kiterjesztett beadási határidő 2025. április 16, szerda, 23:59.
4. kis házi feladat:
A KHF az NDP ETS rendszerének segítségével adható be.
A kiírás a fóliákon megtalálható, de a szóbanforgó egy
oldal (PDF alakban) innen is
letölthető.
A kis házi feladat beadásakor a következő környezetet használom:
:- use_module(library(lists)).
:- assert(clpfd:full_answer).
globtest(Before, Constraint, After, Result) :-
Constraint = max_lt(List, Z),
Goal = (Before, Constraint, After,
maplist(fd_dom, [Z|List], [ZDom|ListDom])),
( call_residue_vars( Goal, Vars) ->
( is_active(max_lt(_,_), Vars) ->
Result = active(ListDom, ZDom)
; Result = exited(ListDom, ZDom)
)
; Result = failed
).
is_active(Goal, Vars) :-
member(Var, Vars),
frozen(Var, VarF),
in_goal(VarF, Goal).
in_goal(_:Gs, G) :- !,
in_goal(Gs, G).
in_goal((Gs1,Gs2), G) :- !,
( in_goal(Gs1, G) -> true
; in_goal(Gs2, G)
).
in_goal(G, G).
step_up(X, _I) :-
nonvar(X), !.
step_up(X, I) :-
X #> I, I1 is I+1,
step_up(X, I1).
Példafutások:
| ?- globtest(true, max_lt([A,B,C],Z), (A in 1..5, B #> 2, Z in 0..6), Result).
Result = active([1..5,3..5,inf..5],4..6) ? ;
no
| ?- globtest(domain([X,Y,Z], 0, 9), max_lt([X,Y],Z), (Z=5, Y=6), Result).
Result = failed ? ;
no
| ?- globtest(true, max_lt([A],Z), (A in {0,9}, Z in {3,6}), Result).
A = 0,
Result = exited([{0}],{3}\/{6}) ? ;
no
| ?- globtest((length(L, 500),domain(L, 1, 5) , X in 5..50000),
max_lt([X|L], Z),
step_up(X, 5), Result).
L = [_A,_B,_C,_D,_E,_F,_G,_H,_I,_J|...],
X = 10000,
Result = exited([{10000},1..5,1..5,1..5,1..5,1..5,1..5,1..5,... .. ...|...],10001..sup) ? ;
no
| ?-
Megjegyzések:
- Az utolsó teszt hivatott azt eldönteni, hogy a megoldás használ-e
állapotot, vagy sem. Állapot nélkül ugyanis 500-szor több listaelemet
kell végignéznie...
- Az eredményben a struktúra funktora jelzi, hogy a globális korlát
lefutott-e (
exited
), vagy sem (active
). Mivel a lefutás pontos
ellenőrzése általában felesleges, ezért az active
elfogadható az exited
helyett, de nem fordítva. Például
a fentiek közül az utolsó két esetben a tesztrendszer elfogadja az
active
funktorú eredményt, de az első tesztesetben az
exited
eredményt nem.
A 4. kis házi feladat beadása:
A KHF az NDP ETS rendszerének segítségével adható be.
- Ez a 4. kis házi feladat, a megoldás a beadáskor az
nlp4.pl
fájlnevet kapja (a beadott fájl neve bármi lehet).
-
A beadási határidő 2025. április 28, hétfő, 23:59.
A rokon tárgyakról Szeredi
Péter oktatási honlapján található
információ.
szeredi@cs.bme.hu