[求助]：[0520]如何判断一数值的单数或双数呢?

xyz518mm

[求助]：[0520]如何判断一数值的单数或双数呢?  
如何判断一数值的单数或双数呢
烦请各位高手可以解答一下
谢谢~

xiao_longxin

求余数

zhang8755

1. 
   
2. (if (= 0 (rem  x 2))
   
3. (princ "双")
   
4. (princ "单")
   
5. )
   
6.   [/FONT]
   

复制代码

xyz518mm

感谢版主的解答

xxsheng

最初由 zhang8755 发布
[B]

1. 
   
2. (if (= 0 (rem  x 2))
   
3. (princ "双")
   
4. (princ "单")
   
5. )
   
6.   [/FONT]
   

复制代码

[/B]

还是没有完整,,,先判断x是不是整数,,,,还有,,0
(rem 1.5 2)
,,,,,,测试下吧~~~~

zhang8755

没有考虑那么多，因为既然要判断单双，应该是个整数，所以没有现判断是否是整数，
判断整数可用
(= x (fix x))

雨箭风刀

不是吧？
(= 3 3.0)
应该是 (= 'int (type x))

eachy

最初由 xxsheng 发布
[B]
还是没有完整,,,先判断x是不是整数,,,,还有,,0
(re... [/B]

_$ (rem 1.5 2)
1.5
_$ (rem 2 2)
0
_$
_$ (rem 2.0 2)
0.0
_$
_$ (rem 2 2.)
0.0
_$

单还是双先要搞清概念。确切的说是奇数、偶数，实数区分奇偶要先行处理，小数分奇偶是特殊的使用，不是奇偶概念。另外还要注意 Lisp 的规则。