5.3. Acceder a los valores de una lista

Para acceder a los valores de una lista, use las funciones car y cdr, que devuelven el primer elemento de la lista y el resto de la lista, respectivamente. Estas funciones rompen la lista en la construcción cabeza::cola que mencioné antes.

5.3.1. Acceder al primer elemento. La función car

car devuelve el primer elemento de la lista (la cabeza de la lista). La lista necesita ser no -null. La siguiente devuelve el primer elemento de la lista:

    (car '("first" 2 "third"))

que es:

    "first"

5.3.2. Acceder al resto de la lista. La función cdr

cdr devuelve el resto de la lista después del primer elemento (la cola de la lista). Si solo hay un elemento en la lista, devuelve una lista vacia.

    (cdr '("first" 2 "third"))

devuelve:

    (2 "third")

donde la siguiente:

    (cdr '("one and only"))

devuelve:

    ()

5.3.3. Acceder a otros elementos de una lista

OK, bravo,podemos obtener el primer elemento en una lista, tanto como el resto de la lista, pero ¿como hacemos para acceder al segundo, tercero o otros elementos de la lista?. Existen varias funciones convenientes para acceder, por ejemplo, la cabeza de la cabeza de una cola de una lista (caadr), la cola de la cola de una lista (cddr), etc.
La convención básica para nombrar es fácil: a y d representan las cabezas y las colas de la lista, así

    (car (cdr (car x) ) )

primero ejecuta el paréntesis interior y de ahí hacia fuera. En el ejemplo, primero car x (el último caso), después cdr de lo anterior y al final car de lo resultante.

Se podría escribir como:

    (cadar x)

(cadadd x): funciona de atrás a delante, es decir, primero d de x, después d del resultado, después a, después d y por último a.
Para tener práctica con las funciones de acceso a listas, intente teclear lo siguiente ( en una sola linea si está usando la consola); use diferentes variaciones de car y cdr para acceder a los diferentes elementos de la lista:

        (let* (
             (x  '( (1 2 (3 4 5) 6)  7  8  (9 10) )
             )
          )
          ; aquí se pone el código car/cdr
    )

Intente acceder al número 3 en la lista usando solo dos llamadas a función. Si puede hacer eso, está en el camino para llegar a ser un Maestro de Script-Fu!.
Solución: [ (let* ( ( x '( (1 2 (3 4 5) 6 ) 7 8 (9 10) ) ) ) (car (caddar x) ) ) ]
(Para ver bien la solución marcar el texto entre corchetes.

Uno de los más importantes usos de la función car es acceder a los valores devueltos desde las funciones incorporadas en GIMP. Todas las funciones Gimp devuelve una lista, y, siempre, si las listas contienen solo un elemento se debe acceder con car.

5.3.4. Acceso directo a un elemento. La función nth
nth permite simplificar las expresiones de búsqueda para listas muy largas:

    (nth n lista)

Donde el argumento n es el número del elemento que debe devolverse (cero es el primer elemento). Si n es mayor que el número de elemento mayor de la lista, NTH devuelve nil
Ejemplo:

    (nth 2 '(1 2 3))  ; devuelve  3

5.2. Creando y modificando listas

5.2.1. Creando una lista. La función list

Para definir una lista compuesta de literales o, previamente, variables declaradas, use la función list:

    (list 5 4 3 a b c)

Esto compondrá y devolverá una lista conteniendo los valores de las variables a, b y c. Por ejemplo:

        (let* 
            (
               (a 1)
               (b 2)
               (c 3)
            )

            (list 5 4 3 a b c)
     )

Este código crea la lista (5 4 3 1 2 3).

    (list)  ; crea un lista vacía ()

5.2.2. Concatenación de un elemento. La función cons

Una de las funciones más comunes que encontrará es la función cons. Toma un valor y lo situa en el segundo argumento, una lista. En la sección previa, sugerí que piense que una lista está compuesta de un elemento (la cabeza) y el resto de la lista (la cola). Es, exactamente, como cons funciona -- añade un elemento a la cabeza de la lista. Puede crear una lista como sigue:

    (cons 1 '(2 3 4) )

El resultado es la lista (1 2 3 4).
También, podrías crear una lista con un elemento:

   (cons 1 () )

Puede usar, previamente, variables declaradas en lugar de literales, como cabría esperar.

5.2.3. Concatenación de dos listas. La función append

Si queremos concatenar dos listas, recurrimos a la función append, que añade a la cola de la primera lista los elementos de la segunda lista:

    (append '() '(a b c))  (a b c)
   (append '(a b) '(c d)) (a b c d)

5.1. Definir una lista

5.1. Como son las listas

Antes de que hablamos más sobre las listas, es necesario que sepa la diferencia entre valores atómicos y listas.

Ya ha visto los valores atómicos cuando inicializamos variables. Un valor atómico es un valor simple. Así, por ejemplo, podemos asignar a la variable "x" el valor simple de 8 en la declaración siguiente:

    (let* ( (x 8) ) x)

(Añadimos la expresión x al final para imprimir el valor asignado a x-- normalmente, no necesitará hacer esto. Note como let* opera justo como una función: El valor de la última declaración es el valor devuelto).
Una variable puede, tambien, referirse a una lista de valores, casi como un valor simple. Para asignar a la variable x , la lista de valores 1, 3, 5, tecleamos:

    (let* ( (x '(1 3 5))) x)

Intente teclear ambas declaraciones en la consola de Script-Fu y verá como contesta. Cuando teclea la primera declaración, responde con el resultado:

    8

Cuando teclea la otra declaración, responde con el siguiente resultado:

    (1 3 5)

Cuando responde con el valor 8 está informando que x contiene el valor atómico 8. Cuando responde con (1 3 5), entonces, está informando que x no contiene un valor simple, sino una lista de valores. Note que no hay comillas en nuestra declaración o en la asignación de la lista, ni en el resultado impreso.
La sintaxis para definir una lista es:

    '(a b c)

donde a, b, y c son literales. Usamos el apóstrofe (') para indicar que lo que sigue entre paréntesis es una lista de valores literales, casí como una función o expresión.
Una lista vacia, en este caso llamada layer-list puede definirse como:

    (layer-list '())

o simplemente:

    (layer-list ())

Las listas pueden contener valores atómicos, así como otras listas:

    (let*
       (
           (x
           '("GIMP" (1 2 3) ("is" ("great" () ) ) )
           )
       )
       x
   )

Note que después del primer apóstrofe, no necesita usar un apóstrofe cuando defina las listas internas. Adelante, copie la declaración en la consola de Script-Fu y mire que devuelve.
Notará que el resultado devuelto no es una lista de simples valores atómicos; casí es una lista de un literal ("GIMP"), la lista (1 2 3), etc.
Es útil pensar que las listas están compuestas de una “cabeza” y de una “cola”. La cabeza es el primer elemento de la lista, la cola es el resto de la lista. Verá porque esto es importante cuando tratemos como añadir listas y como acceder elementos en la lista.

5.1.1. La función length
Devuelve el número de elementos de la lista y su notación general es:

    (length lista)

Ejemplo:

    (length '(1 2 3))  ; devuelve 3