common lisp 学习第四天 变量、宏

//变量
//引入变量:变量作用域括号内
(let ((x 10) (y 20) z)
...)
引入变量列表中的变量
(let* ((x 10) 
(y (+ x 10))
...)
//全局变量
之前有没有值都可以赋值
(defparameter *count*变量名0"doc描述")
变量未定以才可以赋值,也可以不给定值
(defvar *count*变量名 0 "doc描述")
//常量
(defconstant a常量名10)
//赋值
(setf place保存值的位置 value)
递增
(incf x)——(setf x (+ x 1))
(incf x 10)——(setf x (+ x 10))
递减
(decf x)——(setf x (- x 1))
位置间轮换值
(rotatef a b)
向左移动赋值a=b,b=20
(shiftf a b 20)

//宏
//if
(ifcondition条件 then-form满足条件执行[else-form]不满足条件执行)
//when当满足条件执行,unless当不满足条件执行
(whencondition条件
执行1
执行2)
定义宏
(defmacro my-when (condition &rest body)
`(if ,condition (progn ,@body)))
(defmacro my-unless (condition &rest body)
`(if (not ,condition) (progn ,@body)))
progn操作符:逐个执行后面的语句。
//cond多重分支
(cond
(test-1条件form*执行体)
...
(test-N form*))
可以用t代表if中的else分支
(cond
(a (do-x))
(b (do-y))
(t (do-z)))
//and or是宏,not是函数
//dolist循环列表操作
(dolist (var存储每个值的变量 list-form列表)
body-form*循环体)
循环打印
(dolist (x '(1 2 3)) (print x))
列表结束前中断,用return
(dolist (x '(1 2 3)) (print x) (if (evenp x) (return)))
//dotimes循环计数,用return中断
(dotimes (var变量 count-form循环次数)
body-form*循环体)
CL-USER> (dotimes (i 2) (print i))
NIL
//do循环允许定义任意数量变量,变量改变方式可控,可以定义终止条件。
变量列表也可为空,但是必须保留括号。
(do (variable-definition*变量定义)
(end-test-form结束判断 result-form*返回结果)
statement*)
variable-definition变量定义形式
(var变量名 init-form初始值 step-form步长)
CL-USER> (do ((i 0 (1+ i)))
((>= i 2))
(print i))
NIL
其中(1+ n)等同于(+ 1 n)
//loop
简单形式:无限循环,通过return结束
(loop
body-form*循环体)
扩展形式
构建列表
CL-USER> (loop for i from 1 to 10 collecting i)
(1 2 3 4 5 6 7 8 9 10)
计算平方数求和
CL-USER> (loop for x from 1 to 10 summing (expt x 2))
385
统计字符串中元音字母个数
CL-USER> (loop for x across "the quitck brown fox jumps over the lazy dog"
counting (find x "aeiou"))
11
计算第11个斐波那契数
CL-USER> (loop for i below 10
and a = 0 then b
and b = 1 then (+ b a)
finally (return a))
55

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/417181.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

前端学习(2310):数据请求和json-server

app.js import React from react;import ./App.css; import Home from ./components/Home.js import World from "./components/World"; function App() {return (<div className"App">你好<World/></div>); }export default App;worl…

对Linux课程内容的建议,Linux课程笔记 Day01 课程内容总结(示例代码)

系统安装&#xff1a;引导项简单介绍&#xff1a;在“boot:”提示后&#xff1a;直接回车(Enter)——图形界面安装模式linux text——字符界面安装模式linux askmethod——提示用户选择安装方法(例如&#xff1a;nfs、ftp、http远程安装)linux rescue——救援模式&#xff0c;…

CommonJs、AMD、CMD模块化规范

/*** CommonJS 模块化规范* CommonJS规范加载模块是同步的&#xff0c;也就是说&#xff0c;只有加载完成&#xff0c;才能执行后面的操作*//*-------Node.js遵循Commonjs规范---------*///写法1.var exportsmodule.exports;exports.name"leyi";exports.fnfunction()…

前端学习(2311):react中处理跨域问题

proxy:{"/api":{target:"http://www.weather.com.cn/data/cityinfo/101320101.html",changeOrigin:true,"pathRewrite":{"^/api":"/"}}}

mysql显示行号

显示行号set intIndex 0;select (intIndex : intIndex 1) as RowNum ,* from table;

linux密码stdin怎么用,如何使ssh接收来自stdin的密码

根据这篇文章&#xff0c;您可以执行以下操作&#xff1a;创建一个使用SSH_ASKPASS打开ssh会话的命令(在man ssh上查找SSH_ASKPASS )$ cat > ssh_session <export SSH_ASKPASS"/path/to/script_returning_pass"setsid ssh "your_user""your_hos…

Dev Express Report 学习总结(五)在分组中使用聚集表达式AggregateExpression

聚集表达式AggregateExpression主要包括几种&#xff1a;Avg(),Count(),Exists(),Max(),Min(),Single()和Sum()。其中对于Sum()&#xff0c;在我看来主要有两种用法&#xff0c;一种是Group时的合计&#xff0c;另一种是整个页面某个列的值的合计。但是对于Count(),由于以前对D…

RavenDb中的Task异步应用.Net4

internal partial class RavenService : ServiceBase{ private RavenDbServer server; private Task startTask; public RavenService() { InitializeComponent(); } protected override void OnStart(string[] args) { //单独开启一个线程启动服务 startTask Task.Factory…

linux 线程间传送消息,Linux 多线程同步-消息队列

消息队列是消息的链表&#xff0c;存放在内核中并有消息队列标示符标示。msgget用于创建一个新队列或打开一个现存的队列。msgsnd将新消息加入到消息队列中&#xff1b;每个消息包括一个long型的type&#xff1b;和消息缓存&#xff1b;msgrcv用于从队列中取出消息&#xff1b;…

RTF文件格式

RTF1.8白皮书 http://www.microsoft.com/downloads/details.aspx?FamilyIDac57de32-17f0-4b46-9e4e-467ef9bc5540&displaylangen //标签 name为自定义标签名称{\*\bkmkstart name} //文本头部\rtf1RTF版本\ansi字符集\ansicpg936简体中文//字体表{\fonttbl{\f0字体0\fmode…

linux6.8安装图形桌面,图形/文本界面安装CentOS 6.8系统详解

2. anaconda的工作过程前面提到&#xff0c;使用anaconda安装CentOS系统有两种方式&#xff0c;默认使用的是图形界面(GUI)安装&#xff0c;要求主机内存至少有512MB内存。而使用基于文本配置接口(TUI)来安装CentOS则需要显示指定&#xff0c;指定方式可以是在菜单界面按ESC键&…

C#位图算法

在处理表格合并等问题时&#xff0c;可以考虑采用位图算法实现二维存储对象的处理通过Map.Set设置点值或Map.Fill填充区域。判断各点值时通过Map.Get获取扩展Point属性可以改成3维或更多维实现多维存储对象的处理/// <summary>/// 二维图形算法/// 王洪岐 121226/// <…

从零开始学JavaWeb

引言 记得上学时,有位导师说过一句很经典的话:"编程语言只是工具,最重要的是掌握思想。" 笔者一直主要从事.net领域的开发工作。随着工作阅历的丰富&#xff0c;越来越深刻的理解当年导师说的那句话的意义。 "他山之石,可以攻玉",相互借鉴,然后为我所用,无…

嵌入式linux截屏代码,嵌入式linux截屏程序

基于网上一个代码改的。源地址&#xff1a;http://blog.csdn.net/z1179675084/article/details/14645359// 注意&#xff0c;由于fb_bpp 16的情况没用到&#xff0c;以下修改后的代码只调整了fb_bpp不为16的情况#include #include #include #include #include #include #inclu…

MongoDB分布式(分片存储)部署

分别开启一个Config和两个ShardD:\mongodb1\bin\mongod --configsvr --dbpath D:\mongodb1\db\ --port 27020D:\mongodb2\bin\mongod --dbpath D:\mongodb2\db\ --port 27021D:\mongodb3\bin\mongod --dbpath D:\mongodb3\db\ --port 27022启动mongos(Sharding controller分片控…

(转)找回vss超级管理员密码

原文&#xff1a;http://www.cnblogs.com/446557021/archive/2011/01/05/1926213.html 如果忘记了VSS管理员密码&#xff0c;打开vss数据库所在的文件夹&#xff0c;打开data目录&#xff0c;找到um.dat文件&#xff0c;用编辑器打开编辑它&#xff0c;从offset 80的55 55 开始…

MongoDB文件操作(支持大于4M数据)

// MongoDB连接串&#xff0c;以[mongodb://]开头。这里&#xff0c;我们连接的是本机的服务string connectionString "mongodb://localhost";// 连接到一个MongoServer上MongoServer server MongoServer.Create(connectionString);// 打开数据库testdbMongoDataba…

linux 压缩排除某个文件夹,linux tar压缩排除 某类型文件 某个文件夹

排除某类型文件测试 生成10个.log文件再生成10个.txt文件touch {1..10}.logtouch {1..10}.txt打包并排除 log结尾的文件tar -zcvf 1.tar –exclude*.log . 结论tar -tvf 1.tar rwxr-xr-x root/root 0 2018-10-26 02:45 ./-rw-r–r– root/root 0 2018-1…

oracle之trunc(sysdate)

--截取后得到的仍为date数据类型 select trunc(sysdate) from dual;--2017-03-13 00:00:00select trunc(sysdate1) from dual;--2017-03-14 00:00:00 加一天 select trunc(sysdate,yyyy) from dual;--2017-01-01 00:00:00select trunc(sysdate,MM) from dual;--2017-03-01 00:0…