Question

我试图找到一种方法来创建一个包含切换行和列的数组副本我想通过设置从阴影数组到原始数组的指针来执行此操作，以便项[2 1]指向项[1 2]。

使用指针会产生这样的效果：当原始数组发生更改时，阴影数组也会反映该更改。

到目前为止，我想到了为阵列中的每个项目使用长度为1的移位数组它可以工作，但结果是一个带数组的数组我的问题是，有更好的方法吗？
有没有办法通过阴影数组使用setf来设置原始数组中的值？

到目前为止我的代码：

(defun shadow-column-array (array)
  (let* ((colsize (second (array-dimensions array)))
         (rowsize (first (array-dimensions array)))
         (b (make-array (list colsize rowsize))))
    (dotimes (i rowsize b) 
      (dotimes (j colsize)

        (setf (aref b j i)
              (make-array 1 
                          :displaced-to array 
                          :displaced-index-offset (+ (* i rowsize) j)))))))

一些输出：

*a* => #2A((0.0 0.1 0.2) (1.0 1.1 1.2) (2.0 2.1 2.2))  

(setq b (shadow-column-array (*a*))  

*b* => #2A((#(0.0) #(1.0) #(2.0)) (#(0.1) #(1.1) #(2.1)) (#(0.2) #(1.2) #(2.2)))

列的移位数组现在是

 col1 => #(#(0.0) #(1.0) #(2.0))    
 col2 => #(#(0.1) #(1.1) #(2.1))   
 col3 => #(#(0.2) #(1.2) #(2.2))

Answer 1

使原始数组的每个元素成为“对单元格的引用”。然后使用相同的单元格创建一个阴影数组，但元素相反。更改单元格中的值将更改数组内容。

(defun make-celled-array (m n init)
  (let ((array (make-array (list m n))))
    (dotimes (i m)
      (dotimes (j n)
        (setf (aref array i j) (list init))))    ; (list init) makes a 'cell'
    array))
(defun celled-array-ref (array m n)
  (car (aref array m n)))
(defsetf celled-array-ref (array m n) (val)
  `(setf (car (aref ,array ,m ,n)) ,val))

(defun shadow-celled-array (ca)
  (let ((m (array-dimension ca 1))    ; swapped
        (n (array-dimension ca 0)))
    (let ((array (make-array (list m n))))
      (dotimes (i m)
        (dotimes (j n)
          (setf (aref array i j) (aref ca j i))))   ; swapped
      array)))

使用：

* (defvar a1 (make-celled-array 2 4 1))
A1

* (setf (celled-array-ref a1 0 3) 10)
10

* a1
#2A(((1) (1) (1) (10)) ((1) (1) (1) (1)))

* (defvar a2 (shadow-celled-array a1))
A2

* a2
#2A(((1) (1)) ((1) (1)) ((1) (1)) ((10) (1)))

* (celled-array-ref a2 3 0)
10

* (setf (celled-array-ref a2 3 0) 100)
100

* (celled-array-ref a1 0 3)
100

Answer 2

我可能会使用两个数组，并在更改内容时设置两个数组。您可以轻松地为此编写SETF函数。如果它看起来像用户的单个数据结构，我也会使用带有插槽的CLOS实例。

使用切换的行和列创建数组的阴影数组

2 个答案: