[讨论]：LISP中数组的运用

panzhongw

设一个表为连续的数组存储地址
我设计了如下取二维数组的程序请大家指正！
（a b c d e g g g g g g g  g g g g g g g g g)
;;;二维数组的取操作
;;;如有数组m(5,6) 取m(1,4) 输入(drr 5 6 1 4 dl) dl为数组表
(defun drr (b c e f dl / n)
       (setq b (* b c))
       (setq n (length dl))
       (cond ((> n b) (setq e (+ (* (- e 1) c) e))
                      (nth e dl)
             )
             ((= n b) (setq e (+ (* (- e 1) c) (- f 1)))
                      (nth e dl)
             )
       );;;cond
);;;defun
注意：表中数据可以大于数组确定的数据数量，这样我可以假设
         任何表为一数组！