lisp数组操作用法代码

代码语言:lisp

所属分类:

代码描述:lisp数组操作用法代码

代码标签: 数组 用法

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

(setf x (make-array '(3 3):initial-contents'((1 2 3)(4 5 6)(7 8 9))))
(write x)

(defun afisare (i j g h)
(print (aref x i j))
(print (aref x g h))
)

(afisare 0 1 0 2)


(setq myarray (make-array '(3 2 3) 
   :initial-contents 
   '(((a b c) (1 2 3)) 
      ((d e f) (4 5 6)) 
      ((g h i) (7 8 9)) 
   ))
) 
(setq array2 (make-array '(3 2) :displaced-to my.........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码