lisp查找最值_LISP - 运算符
运算符是一个符号，它告诉编译器执行特定的数学或逻辑操作。 LISP允许在众多的数据业务，通过各种函数，宏和其他结构的支持。
允许对数据的操作都可以归类为：
算术运算
比较操作
逻辑运算
位运算
算术运算
下表列出了所有支持的LISP算术运算符。假设变量A=10和变量B=20则：
运算符
描述
Example
+
增加了两个操作数
(+ A B) = 30
-
从第一数减去第二个操作数
(- A B)= -10
*
乘两个操作数
(* A B) = 200
/
通过取消分子除以分子
(/ B A) = 2
mod,rem
模运算符和其余整数除法后
(mod B A ) = 0
incf
递增运算符，所指定的第二个参数增加整数值
(incf A 3) = 13
decf
递减操作符，通过指定的第二个参数减小整数值
(decf A 4) = 9
例子
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(setq a10)(setq b20)(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 a3))(format t"~% Decrement A by 4 = ~d"(decf a4))
当您单击Execute按钮，或按下Ctrl+ E，LISP立即执行它，返回的结果是：
A+B=30A-B=-10A x B=200B/A=2IncrementAby3=13DecrementAby4=9
比较操作
下表列出了所有支持的LISP关系运算符的数字之间进行比较。然而不像其他语言的关系运算符，LISP的比较操作符可能需要超过两个操作数，他们在只有数字工作。
假设变量A=10和变量B=20，则：
Operator
描述
Example
=
检查如果操作数的值都相等与否，如果是的话那么条件为真。
(= A B)= true.
/=
检查如果操作数的值都不同，或没有，如果值不相等，则条件为真。
(/= A B) =true.
>
检查如果操作数的值单调递减。
(> A B) !=true.
<
检查如果操作数的值单调递增。
(< A B) = true.
>=
如有左操作数的值大于或等于下一个右操作数的值，如果是则条件检查为真。
(>= A B) !=true.
<=
如有左操作数的值小于或等于其右操作数的值，如果是，则条件检查为真。
(<= A B) = true.
max
它比较两个或多个参数，并返回最大值。
(max A B) 返回20
min
它比较两个或多个参数，并返回最小值。
(min A B) 返回 20
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(setq a10)(setq b20)(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"(= 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))
当您单击Execute按钮，或按下Ctrl+ E，LISP立即执行它，返回的结果是：
A=BisNIL
A/=BisT
A>BisNIL
A
A>=BisNIL
A<=BisTMaxof AandBis20Minof AandBis10
布尔值逻辑操作
Common Lisp中提供了三种逻辑运算符：AND，OR，而不是运算符的布尔值。假定A=nil，B=5，那么
运算符
描述
示例
and
这需要任意数量的参数。该参数是从左向右计算。如果所有参数的计算结果为非零，那么最后一个参数的值返回。否则就返回nil。
(and A B) = NIL.
or
这需要任意数量的参数。该参数是从左向右计算的，直到一个计算结果为非零，则此情况下返回参数值，否则返回nil。
(or A B) = 5.
not
它接受一个参数，并返回t，如果参数的计算结果为nil。
(not A) = T.
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(setq a10)(setq b20)(format t"~% A and B is ~a"(anda b))(format t"~% A or B is ~a"(ora b))(format t"~% not A is ~a"(nota))(terpri)(setq anil)(setq b5)(format t"~% A and B is ~a"(anda b))(format t"~% A or B is ~a"(ora b))(format t"~% not A is ~a"(nota))(terpri)(setq anil)(setq b0)(format t"~% A and B is ~a"(anda b))(format t"~% A or B is ~a"(ora b))(format t"~% not A is ~a"(nota))(terpri)(setq a10)(setq b0)(setq c30)(setq d40)(format t"~% Result of and operation on 10, 0, 30, 40 is ~a"(anda b c d))(format t"~% Result of and operation on 10, 0, 30, 40 is ~a"(ora b c d))(terpri)(setq a10)(setq b20)(setq cnil)(setq d40)(format t"~% Result of and operation on 10, 20, nil, 40 is ~a"(anda b c d))(format t"~% Result of and operation on 10, 20, nil, 40 is ~a"(ora b c d))
当您单击Execute按钮，或按下Ctrl+ E，LISP立即执行它，返回的结果是：
AandBis20AorBis10notAisNIL
AandBisNIL
AorBis5notAisT
AandBisNIL
AorBis0notAisTResultofandoperation on10,0,30,40is40Resultofandoperation on10,0,30,40is10Resultofandoperation on10,20,nil,40isNILResultofandoperation on10,20,nil,40is10
请注意，逻辑运算工作，布尔值，其次，数字为零，NIL不是一样的。
对数位运算
位运算符位工作并进行逐位操作。对于按位与，或，和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
AssumeifA=60;andB=13;nowinbinary format they will beasfollows:A=00111100B=00001101-----------------AandB=00001100AorB=00111101A xor B=00110001notA=11000011
通过LISP支持位运算符列于下表中。假设变量A=60和变量B=13，则：
操作符
描述
Example
logand
这将返回位逻辑的参数和。如果没有给出参数，则结果为-1，这是该操作的标识。
(logand a b)) = 12
logior
这将返回位逻辑包括它的参数或。如果没有给出参数，那么结果是零，这是该操作的标识。
(logior a b) = 61
logxor
这将返回其参数的按位逻辑异或。如果没有给出参数，那么结果是零，这是该操作的标识。
(logxor a b) = 49
lognor
这不返回的逐位它的参数。如果没有给出参数，则结果为-1，这是该操作的标识。
(lognor a b) = -62,
logeqv
这将返回其参数的逐位逻辑相等(也称为异或非)。如果没有给出参数，则结果为-1，这是该操作的标识。
(logeqv a b) = -50
示例
创建一个名为main.lisp一个新的源代码文件，并在其中输入如下代码：
(setq a60)(setq b13)(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 a10)(setq b0)(setq c30)(setq d40)(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))
当您单击Execute按钮，或按下Ctrl+ E，LISP立即执行它，返回的结果是：
BITWISE AND of aandbis12BITWISE INCLUSIVE OR of aandbis61BITWISE EXCLUSIVE OR of aandbis49A NOT Bis-62A EQUIVALANCE Bis-50Resultof bitwiseandoperation on10,0,30,40is0Resultof bitwiseoroperation on10,0,30,40is62Resultof bitwise xor operation on10,0,30,40is60Resultof bitwise eqivalance operation on10,0,30,40is-61
¥ 我要打赏
纠错/补充
收藏
加QQ群啦，易百教程官方技术学习群
注意：建议每个人选自己的技术方向加群，同一个QQ最多限加 3 个群。