偶数判断

WhoCanSay

明经上版主举行了比赛，下面是偶数判断

1. ;; 方法1
   
2. (defun evenp (data)
   
3.   (and (= 'INT (type data))
   
4.        (= (/ data 2) (/ data 2.))
   
5.   )
   
6. )
   
7. 
   
8. ;; 方法2
   
9. (defun evenp (data)
   
10.   (and (= 'INT (type data))
    
11.        (= 0 (boole 1 data 1))
    
12.   )
    
13. )
    

;; 方法1<br /> (defun evenp (data)<br />   (and (= 'INT (type data))<br />        (= (/ data 2) (/ data 2.))<br />   )<br /> )<br /> <br /> ;; 方法2<br /> (defun evenp (data)<br />   (and (= 'INT (type data))<br />        (= 0 (boole 1 data 1))<br />   )<br /> )<br />

方法2写得很绝，因为(boole 1 data 1)只有两个值 0和1,布尔运算应该很快。
下面是 方法3

游客，如果您要查看本帖隐藏内容请回复

ynhh

大师来一个
人民币大写转换的程序啊

kqqt6236

明经可以上了？

lucas3

二楼算恶意灌水吗？已举报

HLCAD

回复，向大师学习

iLisp

可以用rem a 2的余数为0判断

llsheng_73

看看更绝的

llsheng_73

(defun evenp(a)(and(=(type a)'int)(=(logand a 1)0)))

q3_2006

不是用rem...??

viphappy

向大师学习

Urings

谢谢分享.

ayl1004

都打码打习惯了，很难找到无码的帖子了

yoyoho

回复，向大师学习程序!!!!

yjch

好好学习天天向上，恍然大悟！

Lisphk

(= (rem val 2) 0) 不就能判断吗？