Off: prolog

[Bornemissza Zsigmond]

Sziasztok!

Ha ezt valaki szövegesen leírná, azt nagyon megköszönném. :-)

/* 1.d MAXIMUM Ki a legmagasabb játékos és milyen magas? */

maximum([jatekos(Nev,Max)],jatekos(Nev,Max)).
maximum([jatekos(_,Mag)|List],jatekos(Nev,Max)) :-
maximum(List,jatekos(Nev,Max)), Mag=<Max, !.
maximum([jatekos(Nev,Max)|List], jatekos(Nev,Max)) :-
maximum(List,jatekos(_,Mag)), Mag=<Max.


jatekos(geza, 200).
jatekos(lajos, 180).

Köszi
Zs
--------- következõ rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: http://lista.sulinet.hu/pipermail/techinfo/attachments/20110921/2b2a3632/attachment.html