;;;;;;;;;;;;;;;;;;;;;
/* bemenet: [labda [Kati Feri]] [auto [Feri Sari Angela]] ... */
/* "A" részfeladat */

tanuld fokereselj: szo:s:db
 kereses szo mondat:s db
vége 

tanuld kereses: szo: s: db
if [not:ürese:s] ~
	; if-then
	[if szo=elso:s ~
                ; if-if-then
		[ kereses szo:elsonelkuli:s db+1 ]~
		; if-if-else
                [ kereses szo:elsonelkuli:s db ] ]
vége

;;;;;;;;;;;;;;;;;;;;;
/* "B" részfeladat */

tanuld foszamol: nevlista:s:db
if [not:ürese:s] ~
  	if-then
	[if [not:ürese:nevlista]~
	; if-2-then
	[szamol első:nevlista :mondat:s db
         if [db<>0] ~
		; if-3-then
                [foszamol elsőnélküli:nevlista s db ]]]
vége 

tanuld szamol: nev: s: db
if [not:ürese:s]
	; if-then
	[if [nev=elso:s]
                ; if-2-then
		[db=1]
		; if-2-else
                [db=0~
		szamol nev elsőnélküli:s db] ]
vége

/* db=1 -> mindenki kapott ajandekot */
/* db=0 -> volt olyan, aki nem kapott... */