Resposta ao exercício 45

(defun posicao (elem lista)
  (if (eql elem (first lista))
     0
     (1+ (posicao elem (rest lista)))))