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