exercicios de Lisp.txt

(defun tam+1 (l) ; cria uma nova lista com a quantidade de elementos da lista anterior +1 preenchendo os valores com t
	(if(null (car l))
		(cons t NIL)
		(cons t (tam+1 (cdrl)))
	)
)

(DEFUN MUDA (A1 A2 L) ;troca o elemento A1 pelo elemento A2 em uma lista simples
	(IF(NULL (CAR L))
		NIL
		(IF(EQL A1 (CAR L))
			(CONS A2 (MUDA A1 A2 (CDR L)))
			(CONS (CAR L) (MUDA A1 A2 (CDR L)))
		)
	)
)

(DEFUN N-ESIMO (N L)
	(IF(ZEROP N)
		(CAR L)
		(N-ESIMO (1- N) (CDR L))
	)
)

(DEFUN MUDA-N (N E L)
	(IF(ZEROP N)
		(CONS E (CDR L))
		(CONS (CAR L) (MUDA-N (1- N) E (CDR L)))
	)
)

(DEFUN POS (E L) ; RETORNA POSICAO DE UM ELEMENTO
	(IF(EQL (CAR L) E)
		0
		(IF (NULL (CDR L))
			NIL ; NAO EXISTE NA LISTA
			(1+ (POS E (CDR L)))
		)
	)
)

(DEFUN MAPEAR ( F L) ; EXECUTA UMA FUNCAO F PARA TODOS OS ELEMENTOS DA LISTA L E RETORNA UMA NOVA LISTA COM ESSES NOVOS VALORES
	(IF (NULL (CAR L))
		NIL
		(CONS (FUNCALL F (CAR L)) (MAPEAR F (CDR L)))
	)
)

(MAPEAR (FUNCTION ZEROP) '(0 1 0 2))

(DEFUN ELIMINA (E L) ; RETIRA UM ELEMENTO DA LISTA
	(IF(EQL (CAR L) E)
		(CDR L)
		(IF(NULL (CAR L))
			NIL
			(CONS (CAR L) (ELIMINA E (CDR L)))
		)
	)
)