Construir Dolist en LISP

DoList en Common LISP es una declaración de bucle utilizada para iterar los elementos en una lista.

Sintaxis:

(dolist input_list)
 statements...
)

Aquí,

• input_list contiene la lista de elementos que se iteran.
• Las sentencias están presentes en el bucle.

Ejemplo 1: Programa LISP para iterar la lista de elementos del 1 al 5.

;create a dolist of 1 to 5 elements in  a list
(dolist (n '(1 2 3 4 5 ))
 
;iterate elements
   (format t "~% List of elements: ~d " n)
)

Producción:

List of elements: 1  
List of elements: 2  
List of elements: 3  
List of elements: 4  
List of elements: 5 

Ejemplo 2: Programa LISP para encontrar el cuadrado de cada elemento por iteración.

;create a dolist of 1 to 5 elements in  a list
(dolist (n '(1 2 3 4 5 ))
 
  ;iterate elements to print each element
  (format t "~% Element's value: ~d " n)
   
  ;iterate elements to find square of each element
  (format t "~% Square of element: ~d " (* n n))
  (terpri)
)

Producción:

 Element's value: 1 
 Square of element: 1 

 Element's value: 2 
 Square of element: 4 

 Element's value: 3 
 Square of element: 9 

 Element's value: 4 
 Square of element: 16 

 Element's value: 5 
 Square of element: 25