aref无效 lisp_aref无效 lisp_Common Lisp专题4：数组

1)用make-array创建数组：

CL-USER> (make-array 5 :initial-element nil)

#(NIL NIL NIL NIL NIL)

CL-USER> (make-array 5 :initial-contents '(a e i o u))

#(A E I O U)

CL-USER> (setf arr (make-array 5 :initial-contents '(a e i o u)))

#(A E I O U)

CL-USER> arr

#(A E I O U)

也可以简单一点：

CL-USER> (setf a '#(nil nil nil nil nil))

#(NIL NIL NIL NIL NIL)

2)创建二维数组：

CL-USER> (setf arr (make-array '(2 3) :initial-element nil))

#2A((NIL NIL NIL) (NIL NIL NIL))

CL-USER> (make-array (list 2 2))

#2A((0 0) (0 0))

CL-USER> (make-array (list 2 2) :initial-contents '((1 2) (3 4)))

#2A((1 2) (3 4))

CL-USER> (make-array '(2 2) :initial-contents '((a b) (c d)))

#2A((A B) (C D))

CL-USER> (setf arr (make-array '(2 3) :initial-element nil))

#2A((NIL NIL NIL) (NIL NIL NIL))

CL-USER> arr

#2A((NIL NIL NIL) (NIL NIL NIL))

3)用aref访问数组元素

CL-USER> (setf arr (make-array '(2 3) :initial-element nil))

#2A((NIL NIL NIL) (NIL NIL NIL))

CL-USER> arr

#2A((NIL NIL NIL) (NIL NIL NIL))

CL-USER> (make-array 5 :initial-element nil)

#(NIL NIL NIL NIL NIL)

CL-USER> (setf arr (make-array 5 :initial-element nil))

#(NIL NIL NIL NIL NIL)

CL-USER> (aref arr 0)

NIL

CL-USER> (aref arr 3)

NIL

CL-USER> (setf arr (make-array 5 :initial-contents '(a e i o u)))

#(A E I O U)

CL-USER> arr

#(A E I O U)

CL-USER> (aref arr 0)

CL-USER> (aref arr 3)

CL-USER> (setf arr (make-array '(2 2) :initial-contents '((a b) (c d))))

#2A((A B) (C D))

CL-USER> arr

#2A((A B) (C D))

CL-USER> (aref arr 0 1)

CL-USER> (aref arr 1 0)

CL-USER> (aref arr 1 1)

4)访问二维数组

CL-USER> (setf arr (make-array '(2 2) :initial-contents '((a b) (c d))))

#2A((A B) (C D))

CL-USER> arr

#2A((A B) (C D))

CL-USER> (aref arr 0 0)

CL-USER> (aref arr 1 0)

5)一维数组也是向量

CL-USER> (vector "a" 'b 5)

#("a" B 5)

CL-USER> (setf arr (vector "a" 'b 5))

#("a" B 5)

CL-USER> arr

#("a" B 5)

(未完待续。。。)

aref无效 lisp_aref无效 lisp_Common Lisp专题4：数组相关推荐

aref无效 lisp_Common Lisp专题4：数组
1)用make-array创建数组: CL-USER> (make-array 5 :initial-element nil) #(NIL NIL NIL NIL NIL) CL-USER> ...
js的tree数组对象扁平化思否_JS专题之数组展开
前言首先什么是数组展开? 假如现在有这样一个需求:将后台的一个多重 List 数据,展开成一个 List 后,并去重后排序: ["a", "b", [&quo ...
aref无效 lisp_Common Lisp 学习笔记
特殊操作符.函数.宏 0.0 format CL-USER>(format t "hello world") ;t=>*standard-output* hello w ...
java有效 javac无效_javac无效标志
我试图在命令提示符下执行这个命令来查找我的编译错误.我所分解的是,javac将文件名称之一作为标志(选项),这就是为什么它不能执行.我该如何解决?javac无效标志 C:\Users\AUG>j ...
解决安装vMware虚拟机出现无效驱动无效
一.安装VMware的时候出现出现这个原因,是之前系统安装过该款软件,后面卸载了,同时D盘也被改名了,或者被删除了. 但是在注册表中,该款软件的安装信息被写入进去了,你再次安装的时候,系统会去读取注 ...
java repaint 无效_repaint() 无效求助谢谢
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 import java.awt.*; import java.awt.event.ActionEvent; import java.awt.event.A ...
c++ char数组初始化_c专题指针数组与指针的关联
----在今天开始写文章之前,让我不由的想起高中里面学的一篇文章中一段话语,是荀子写的<劝学>:积土成山,风雨兴焉:积水成渊,蛟龙生焉:积善成德,而神明自得,圣心备焉.故不积跬步,无以至千 ...
关于专利权的期限、终止和无效
专利权的保护期限: 专利保护期限是指专利被授予权利后,得到专利保护的时间期限.<中华人民共和国专利法>规定"发明专利权的期限为二十年,实用新型专利权的期限为十年,外观设计专利权的 ...
IOS解决闪屏无效LuanchImage启动动画设置加载广告闪屏图
IOS闪屏动画LuanchImage设置无效设置Launch Image无效其它方法转载请标明出处: https://dujinyang.blog.csdn.net/article/detail ...

aref无效 lisp_aref无效 lisp_Common Lisp专题4：数组

aref无效 lisp_aref无效 lisp_Common Lisp专题4：数组相关推荐

最新文章

热门文章