(defun l () (load "gyak3.txt"))

(defun melyseg (s)
	(cond
		((null s) 0)
		((atom s) 0)
		(t (max (+	(melyseg (car s)) 1)
				(melyseg (cdr s))
		))
	)
)


;(print (melyseg '()))
;(print (melyseg '(1 2 3)))
;(print (melyseg '((1 2)(3 4)((legbelul (ez) van) 5 6))))

(defun atomszam (s)
	(cond 
		((null s) 0)
		((atom s) 1)
		(t (+ 	(atomszam (car s))
			(atomszam (cdr s))
		))
	)
)

;(print (atomszam '(ez a (lista) hat () (atomot tartalmaz)))) 	

(defun lapit (s)
	(cond
		((null s) nil)
		((atom s) (list s))
		(t (append 	(lapit (car s)) 
				(lapit (cdr s))
		))
	)
) 

;(print (lapit '(ez a (lista) hat () (atomot tartalmaz)))) 	


;(print (funcall a 3 4))
;(print (apply a b))



(defun azok (pred lista)
	(cond
		((null lista) ())
		((apply pred (list (car lista)))
			(cons (car lista) (azok pred (cdr lista))))
		(t (azok pred (cdr lista)))
	)
)

;(print (azok 'minusp '(1 2 -3 -4 5 -6)))

;(print ((lambda (x y)(* x y)) 3 4))
;(print (+ 1 2 ((lambda (x y)(* x y)) 3 4) 3))

;(print (mapcar '+ '(1 2 3 4) '(10 20 30 40)))

;(print (mapcar #'(lambda (x) (* x x)) '(1 2 3 4 5)))

;(print (every 'minusp '(-2 -3 4 -5)))
;(print (some 'minusp '(2 3 -4 5)))

;(print (eq 'toto 'toto))
(setq a '(toto))
(setq b '(toto))
;(print (equal a b))
;(print (eq a b))


(setq a '+)
(setq b '(3 4))

;(setq a 1)(let((a 10)(b 20))(print(+ a b)))(print a)

;(gensym)