Matrices en Lisp - Dpto. Ciencias de la Computación e Inteligencia ...

Lógica y Programación Curso 2002–2003Tema : Matrices en LispJosé A. Alonso JiménezFrancisco J. Martín MateosJosé Luis Ruiz ReinaDpto. de Ciencias de la Computación e Inteligencia ArtificialUniversidad de SevillaLP 2002–2003 CcIa Matrices en Lisp .1

Matrices1Creación:(MAKE-ARRAY DIMENSIONES:INITIAL-ELEMENT ELEMENTO)(MAKE-ARRAY DIMENSIONES:INITIAL-CONTENTS EXPRESION)> (make-array ’(2 2))#2A((NIL NIL) (NIL NIL))> (make-array ’(2 1))#2A((NIL) (NIL))> (make-array ’(1 2))#2A((NIL NIL))> (make-array ’(2 2 1))#3A(((NIL) (NIL)) ((NIL) (NIL)))> (make-array ’(2 1 2))#3A(((NIL NIL)) ((NIL NIL)))> (make-array ’(2 2) :initial-element 2)#2A((2 2) (2 2))> (make-array ’(3 2):initial-contents ’((a b c)(1 2 3)(x y z)))#2A((A B C) (1 2 3) (X Y Z))> (setf *matriz*(make-array ’(2 3):initial-contents ’((a b c)(1 2 3))))#2A((A B C) (1 2 3))LP 2002–2003 CcIa Matrices en Lisp .2

Matrices1Acceso:(AREF MATRIZ INDICE-1 ... INDICE-N)> *matriz*#2A((A B C) (1 2 3))> (aref *matriz* 0 0)A> (aref *matriz* 1 1)21Modificación:(SETF (AREF MATRIZ INDICE-1 ... INDICE-N) EXPRESION)> *matriz*#2A((A B C) (1 2 3))> (setf (aref *matriz* 1 2) ’h)H> *matriz*#2A((A B C) (1 2 H))1Otras funciones:> (array-dimensions *matriz*)(2 3)> (array-dimension *matriz* 0)2> (array-dimension *matriz* 1)3> (array-total-size *matriz*)6> (arrayp *matriz*)TLP 2002–2003 CcIa Matrices en Lisp .3

Matrices1Ejemplo:;;; (SUMA-COLUMNAS MATRIZ);;; > (setf mat;;; (make-array ’(3 3);;; :initial-contents;;; ’((1 2 3);;; (4 5 6);;; (7 8 9))));;; #2A((1 2 3) (4 5 6) (7 8 9));;; > (suma-columnas mat);;; #(12 15 18)(defun suma-columnas (a)(let* ((dim (array-dimensions a))(f (first dim))(c (second dim))(res (make-array (list c))))(loop for i from 0 to (- c 1)do (setf (aref res i)(loop for j from 0 to (- f 1)summing (aref a j i))))res))LP 2002–2003 CcIa Matrices en Lisp .4