Soma das variveis dadas pelo utilizador(defun soma (a b c) (+ a b c)

Devolve o quadrado de um valor numrico(defun quadrado (n) "devolve o quadrado de um valor numrico" (* n n))

Faz a mdia de trs nmeros(defun media-de-tres(x y z) (/(+ x y z)3))

Indica o maior nmero entre 3 valores(defun maior-de-tres(x y z) (cond ((AND (> x y)(> x z)) x) ((AND (> y x)(> y z)) y) ((AND (> z x)(> z Y)) z)))

Mostra o comprimento da lista(defun comprimento (list) (if (null list) 0 (+ 1 (comprimento (cdr list)))))

Junta duas listas sem usar o append(defun junta (list1 list2) (if (null list1) list2 (cons (first list1) (junta (rest list1) list2))))

Retorna o n-esimo elemento de uma lista(defun n-esimo (n list) (if (> n 0) (n-esimo (- 1 n) (cdr list)) (car list)))

Retorna a lista principal invertida(defun n-esimo (n list) (if (> n 0) (n-esimo (- 1 n) (cdr list)) (car list)))

Extrascar Mostra o 1 elemento de uma lista ou o primeiro nmero.cdr Mostra os restantes elementos de uma lista ou os nmeros aps o 1cons Junta duas lista. Ex: (cons (1 2 3) (4 5 6)) = ((1 2 3) 4 5 6)append Junta duas listas. Ex: (cons (1 2 3) (4 5 6)) = (1 2 3 4 5 6)listp verifica se o argumento uma lista. Ex: (listp (a b c)) -> Teq verifica se os nmeros so iguais. Ex: (eq 1 1) -> Tcond condio Ex: (cond condicao1 )(cond condicao1 )(cond condicao1 )()(T )mapcar faz o mapeamento da lista recursivamente. Ex: (mapcar #1+ (12345)) -> (23456)