数组(defun allay2-1 (LL A / i j aij)
(setq i -1
LLL nil
)
(repeat (length ll); 按外层表，即按行数循环
(setq i (1+ i)
j -1
)
(repeat (length (cadar LL)); 按第二层嵌套表，即按列数循环
(setq j (1+ j)
aij (read (strcat a (itoa (1+ i)) (itoa (1+ j)))); 构造二维数组变量
)
(set aij (cadr (nth j (cadr (nth i LL))))); 将从表中取出的值，赋给
(setq LLL (cons (eval aij) LLL)) ;;相应的二维数组变量
)
)
(reverse LLL)
)
