关注我们

LISP - 运算符

运算符是一个符号，告诉编译器执行特定的数学或逻辑操作。 LISP允许对数据进行大量操作，并由各种函数，宏和其他构造支持。

允许对数据进行的操作可以归类为-

算术运算
比较操作
逻辑运算
按位运行

算术运算

下表显示了LISP支持的所有算术运算符。假设变量 A=10，变量 B=20，然后-

运算符	描述	示例
+	添加两个操作数	(+ A B)=30
-	从第一个中减去第二个操作数	(-A B)=-10
*	将两个操作数相乘	(* A B)=200
/	按分子除分子	(/B A)=2
mod,rem	模运算符和整数除后的余数	(mod B A)=0
incf	Increments运算符通过指定的第二个参数来增加整数值	(incf A 3)=13
decf	Decrements运算符通过指定的第二个参数减小整数值	(decf A 4)=9

创建一个名为main.lisp的新源代码文件，然后在其中键入以下代码。

(setq a 10)
(setq b 20)
(format t "~% A + B=~d" (+ a b))
(format t "~% A - B=~d" (- a b))
(format t "~% A x B=~d" (* a b))
(format t "~% B/A=~d" (/ b a))
(format t "~% Increment A by 3=~d" (incf a 3))
(format t "~% Decrement A by 4=~d" (decf a 4))

当您单击执行按钮或键入Ctrl + E时，LISP立即执行它，返回的结果是-

A + B=30
A - B=-10
A x B=200
B/A=2
Increment A by 3=13
Decrement A by 4=9

比较操作

下表显示了LISP支持的所有关系运算符，它们在数字之间进行比较。但是，与其他语言中的关系运算符不同，LISP比较运算符可以采用两个以上的操作数，并且它们仅对数字起作用。

无涯教程网

链接：https://www.learnfk.comhttps://www.learnfk.com/lisp/lisp-operators.html

来源：LearnFk无涯教程网

假设变量 A=10，变量 B=20，则-

运算符	描述	示例
=	检查操作数的值是否全部相等	(= A B) is not true.
/=	检查操作数的值是否全部不同	(/= A B) is true.
>	检查操作数的值是否单调递减。	(> A B) is not true.
<	检查操作数的值是否单调递增。	(< A B) is true.
>=	检查任何左操作数的值是否大于或等于下一个右操作数的值,如果是,则条件为true。	(>= A B) is not true.
<=	检查任何左操作数的值是否小于或等于其右操作数的值,如果是,则条件为true。	(<= A B) is true.
max	它比较两个或多个参数并返回最大值。	(max A B) returns 20
min	它比较两个或多个参数并返回最小值。	(min A B) returns 10

创建一个名为main.lisp的新源代码文件，然后在其中键入以下代码。

(setq a 10)
(setq b 20)
(format t "~% A=B is ~a" (= a b))
(format t "~% A /= B is ~a" (/= a b))
(format t "~% A > B is ~a" (> a b))
(format t "~% A < B is ~a" (< a b))
(format t "~% A >= B is ~a" (>= a b))
(format t "~% A <= B is ~a" (<= a b))
(format t "~% Max of A and B is ~d" (max a b))
(format t "~% Min of A and B is ~d" (min a b))

当您单击执行按钮或键入Ctrl + E时，LISP立即执行它，返回的结果是-

A=B is NIL
A /= B is T
A > B is NIL
A < B is T
A >= B is NIL
A <= B is T
Max of A and B is 20
Min of A and B is 10

逻辑运算

通用LISP提供了三个逻辑运算符: and，or，和 not ，它们对布尔值进行运算。假设 A 的值为nil，而 B 的值为5，则-

运算符	描述	示例
and	从左到右判断参数。如果所有参数的计算输出均为非nil,则返回最后一个参数的值。否则返回nil。	(and A B)=NIL。
or	自变量从左到右求值,直到一个值取非nil,在这种情况下,返回参数值,否则返回 nil 。	(or A B)=5。
not	它接受一个参数,如果该参数的值为 nil,则返回 t 。	(not A)=T。

创建一个名为main.lisp的新源代码文件，然后在其中键入以下代码。

(setq a 10)
(setq b 20)

(format t "~% A and B is ~a" (and a b))
(format t "~% A or B is ~a" (or a b))
(format t "~% not A is ~a" (not a))

(terpri)
(setq a nil)
(setq b 5)

(format t "~% A and B is ~a" (and a b))
(format t "~% A or B is ~a" (or a b))
(format t "~% not A is ~a" (not a))

(terpri)
(setq a nil)
(setq b 0)

(format t "~% A and B is ~a" (and a b))
(format t "~% A or B is ~a" (or a b))
(format t "~% not A is ~a" (not a))

(terpri)
(setq a 10)
(setq b 0)
(setq c 30)
(setq d 40)

(format t "~% Result of and operation on 10, 0, 30, 40 is ~a" (and a b c d))
(format t "~% Result of and operation on 10, 0, 30, 40 is ~a" (or a b c d))

(terpri)
(setq a 10)
(setq b 20)
(setq c nil)
(setq d 40)

(format t "~% Result of and operation on 10, 20, nil, 40 is ~a" (and a b c d))
(format t "~% Result of and operation on 10, 20, nil, 40 is ~a" (or a b c d))

当您单击执行按钮或键入Ctrl + E时，LISP立即执行它，返回的结果是-

A and B is 20
A or B is 10
not A is NIL

A and B is NIL
A or B is 5
not A is T

A and B is NIL
A or B is 0
not A is T

Result of and operation on 10, 0, 30, 40 is 40
Result of and operation on 10, 0, 30, 40 is 10

Result of and operation on 10, 20, nil, 40 is NIL
Result of and operation on 10, 20, nil, 40 is 10

按位运算

按位运算符对位进行运算并执行逐位操作。按位，or，and和xor运算的真值表如下-

p	q	p and q	p or q	p xor q
0	0	0	0	0
0	1	0	1	1
1	1	1	1	0
1	0	0	1	1

Assume if A=60; and B=13; now in binary format they will be as follows:
A=0011 1100
B=0000 1101
-----------------
A and B=0000 1100
A or B=0011 1101
A xor B=0011 0001
not A =1100 0011

下表列出了LISP支持的按位运算符。假设变量 A=60，变量 B=13，则-

运算符	描述	示例
logand	这将返回其参数的按位逻辑与。如果未提供任何参数,则输出为-1,这是此操作的标识。	(logand a b))=12
logor	这将返回其参数的按位逻辑INCLUSIVE OR。如果未提供任何参数,则输出为零,这是此操作的标识。	(logior a b)=61
logxor	这将返回其参数的按位逻辑异或。如果未提供任何参数,则输出为零,这是此操作的标识。	(logxor a b)=49
lognor	这将返回其参数的按位NOT。如果未提供任何参数,则输出为-1,这是此操作的标识。	(lognor a b)=-62,
logeqv	这将返回其参数的按位逻辑等效(也称为"异或")。如果未提供任何参数,则输出为-1,这是此操作的标识。	(logeqv a b)=-50

创建一个名为main.lisp的新源代码文件，然后在其中键入以下代码。

(setq a 60)
(setq b 13)

(format t "~% BITWISE AND of a and b is ~a" (logand a b))
(format t "~% BITWISE INCLUSIVE OR of a and b is ~a" (logior a b))
(format t "~% BITWISE EXCLUSIVE OR of a and b is ~a" (logxor a b))
(format t "~% A NOT B is ~a" (lognor a b))
(format t "~% A EQUIVALANCE B is ~a" (logeqv a b))

(terpri)
(terpri)

(setq a 10)
(setq b 0)
(setq c 30)
(setq d 40)

(format t "~% Result of bitwise and operation on 10, 0, 30, 40 is ~a" (logand a b c d))
(format t "~% Result of bitwise or operation on 10, 0, 30, 40 is ~a" (logior a b c d))
(format t "~% Result of bitwise xor operation on 10, 0, 30, 40 is ~a" (logxor a b c d))
(format t "~% Result of bitwise eqivalance operation on 10, 0, 30, 40 is ~a" (logeqv a b c d))

当您单击执行按钮或键入Ctrl + E时，LISP立即执行它，返回的结果是-

BITWISE AND of a and b is 12
BITWISE INCLUSIVE OR of a and b is 61
BITWISE EXCLUSIVE OR of a and b is 49
A NOT B is -62
A EQUIVALANCE B is -50

Result of bitwise and operation on 10, 0, 30, 40 is 0
Result of bitwise or operation on 10, 0, 30, 40 is 62
Result of bitwise xor operation on 10, 0, 30, 40 is 60
Result of bitwise eqivalance operation on 10, 0, 30, 40 is -61

祝学习愉快！(内容编辑有误？请选中要编辑内容 -> 右键 -> 修改 -> 提交！)

技术教程推荐

深入浅出区块链 -〔陈浩〕

微服务架构实战160讲 -〔杨波〕

Elasticsearch核心技术与实战 -〔阮一鸣〕

好记忆不如烂笔头。留下您的足迹吧 :)