(defun fakt (n)
	(cond
		((= n 0) 1)
		(t	(* n (fakt (- n 1))))
	)
)

(print (fakt 5))











(defun eleme (elem lista)
	(cond 
		((null lista) nil)
		((equal elem (car lista)) t)
		(t (eleme elem (cdr lista)))
	)
)

(print (eleme 'semmi ()))
(print (eleme 'alma '(korte alma szilva)))


(defun fordit (lista)
	(cond 
		((null lista) nil)
		(t (append (fordit (cdr lista)) (list (car lista))))
	)
)

(print (fordit '(a b c d e)))

(defun elhagy (elem lista)
	(cond
		((null lista) nil)
		((equal elem (car lista)) (elhagy elem (cdr lista)))
		(t (cons (car lista) (elhagy elem (cdr lista))))
	)
)

(defun parososszeg (lista)
	(cond
		((null lista) 0)
		((evenp (car lista)) (+ (car lista) (parososszeg (cdr lista))))
		(t (parososszeg (cdr lista)))
	)
)

(print (parososszeg '(1 5 3 2 4 7 2))) 

(defun parosindex (lista)
	(cond
		((cdr lista) (+ (car (cdr lista)) (parosindex (cddr lista))))
		(t 0)
	)
)


(print (parosindex '(3)))
(print (parosindex '(3 2)))
(print (parosindex '(1 2 3)))
(print (parosindex '(1 2 3 4 5 6 7)))
(print (parosindex '()))


(print (elhagy 'a '(a b d a c a)))




(defun hanyszoreleme (elem lista)
	(heleme elem lista 0)
)

(defun heleme (elem lista db) 
	(cond 
		((null lista) db)
		((equal elem (car lista)) (heleme elem (cdr lista) (+ db 1)))
		(t (heleme elem (cdr lista) db))
	)
)






(defun hanyszoreleme (elem lista)
	(cond
		((null lista) 0)
		((equal (car lista) elem) (+ 1 (hanyszoreleme elem (cdr lista))))
		(t (hanyszoreleme elem (cdr lista)))
	)
)









(print (hanyszoreleme 'a '(b a b a e)))
(print (hanyszoreleme 'a '(a a a a)))