arbori.lisp

(defun preordine(l)
	(cond
		( ( null l ) nil )
		( t 
			( 
				append 
				( list ( car l ) )
					( preordine ( cadr l ) )
					( preordine ( caddr l ))
				 
			) 
		) 

		
	)
)
(defun postordine(l)
	(cond
		( ( null l ) nil )
		( t 
			( 
				append 
					( postordine ( cadr l ) )
					( postordine ( caddr l ))
					( list ( car l ) ) 
			) 
		) 

	)
)
(defun inordine(l)
	(cond
		( ( null l ) nil )
		( t 
			( 
				append 
					( inordine ( cadr l ) )
					( list ( car l ) )
					( inordine ( caddr l )) 
			) 
		) 

	)
)
;adancimea unui arbore

(defun adancime(l)
	( cond
		( ( null ( cdr l ) ) 0 )
		( t ( + 1 
				( max ( adancime ( cadr l ) ) ( adancime ( caddr l ) ) )
			)
		)
	)
)