Lisp语言：数组

讨论了变量以后让我们来看看Lisp中的数组，对于非Lisp程序员来讲这是再自然不过的了，很多编程语言的教材上都是在讲述了一般性语法后讲解数组。不过，Lisp程序员可能会有点疑问，为什么不开始介绍列表呢？列表作为Lisp语言的关键在Lisp中起到了重要的作用，所以很多有关Lisp的材料都是以介绍列表开始，这对于一般程序员来讲有在思路转换上有点困难。所以在这里还是按一般程序员的习惯，先介绍数组等常见的数据结构。

首先是有关数组的定义，Lisp中数组的定义使用make-array函数，下面是数组定义的样例：

(setf test-array-1 (make-array 10 :initial-element 5))

以上代码定义了一个数组名为test-array-1，数组元素有10个，元素初值为5.

其中数组是通过(make-array 10 :initial-element 5)生成的，生成后通过setf赋予了变量test-array-1。

定义了数组后就需要开始使用它，使用过程需要知道一个数组的长度。数组的长度可以使用函数length获取，下面是样例：

(length test-array-1)

以上语句通过length获取test-array-1的长度，按以上的定义，这里会返回10，表示数组test-array-1中有10个元素。

对数组的进一步操作最常见的就是获取指定位置的元素，如获取一个数组第5个元素。

获取数组的某一个元素通过函数aref完成，下面是样例

(aref test-array-1 5)

以上代码获取了test-array-1中的第6个元素。这里注意代码中使用了数字5，取出来的元素是第6个，因为Lisp和其它一般语言一样将0作为数组的起始下标。

结合以上几个函数，遍历打印一个数组的代码如下：

        (setf end-index (- (length test-array-1 ) 1))
        (loop for i from 0 to end-index do
                (format *query-io* "element ~a is ~a ~%"
                        i
                        (aref test-array-1 i)))

这里没有使用Lisp中的迭代方法，而是简单使用了loop循环，从0开始直到9，通过aref函数逐个取出元素，然后打印出来。

以上方法是遍历一个数组是需要使用的，很多时候我们还需要对数组的特定元素进行赋值操作。

Lisp中对一个数组的元素进行赋值可以通过aref取的对应元素，然后直接通过setf对它进行赋值，下面是一个样例：

(setf (aref test-array-1 5) 50)

以上代码将test-array-1数组中的第6个元素（注意，不是第5个元素）的值设置成50.

结合以上所有样例，数组使用的完整样例如下：

(defun array-test ()
        ;定义数组
        (setf test-array-1 (make-array 10 :initial-element 5))

        ;输出数组长度

        (format *query-io* "test array has ~a elements~%" (length test-array-1))
        ;获取数组长度，保存到end-index
        (setf end-index (- (length test-array-1 ) 1))

        ;循环打印数组

        (loop for i from 0 to end-index do
                (format *query-io* "element ~a is ~a ~%"
                        i
                        (aref test-array-1 i)))

        ;将第6个元素设置为50
        (format *query-io* "setting element 5 to 50 ------~%")
        (setf (aref test-array-1 5) 50)

        ;再次循环输出数组
        (loop for i from 0 to end-index do
                (format *query-io* "element ~a is ~a ~%"
                        i 
                        (aref test-array-1 i)))
)

样例执行截图如下：