2.2.3.1. Ejemplos con CONS, CAR y CDR


;;;Funciones de ejempo usando CONS/CAR/CDR
;;;Cambia el primer término de lista2 por el de lista1
(defun permutainicio (lista1 lista2)
  (cons (car lista1) (cdr lista2))
) ;_ fin de defun


;;;Elimina el primero y el último término
(defun recortalista (lista)
  (reverse (cdr (reverse (cdr lista))))
) ;_ fin de defun


;;;Predicado Palindrome-p
;;;Comprueba si una lista es igual
;;;leída de izquierda a derecha o al revés
(defun palindrome-p (lista)
  (equal lista (reverse lista))
) ;_ fin de defun

;;;Posición en lista
(defun posicion	(termino lista)
  (if (member termino lista)
    (- (length lista) (length (member termino lista)))
    nil
  ) ;_ fin de if
) ;_ fin de defun

https://www.amazon.es/dp/B00CWL2F9O

Experto AutoCAD con Visual LISP, Volumen 1. El Lenguaje y su Entorno de desarrollo.

LISP se encuentra entre los más antiguos lenguajes de programación de alto nivel aún en uso generalizado. Las razones para ello se encuentran en el hecho de poseer una de las formas de sintaxis menos restrictivas entre los lenguajes de alto nivel. Esto facilita su aprendizaje, al ser muy corto el número de estructuras y funciones que el estudiante debe conocer para llegar a dominar las técnicas de programación en este lenguaje.
El Entorno de Desarrollo Integrado Visual LISP (IDE VLISP) incluye herramientas que ayudan en la redacción del código fuente, en su modificación y en la depuración de errores.
Este Volumen brinda tanto la introducción al lenguaje como las instrucciones para un uso eficiente del Entorno de Programación.
Ahora disponible en AMAZON...