数组(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 (n