论坛 › A/VLISP › 偶数判断

WhoCanSay 发表于 2016-8-16 09:00:24

偶数判断

本帖最后由 WhoCanSay 于 2016-8-16 14:20 编辑

明经上版主举行了比赛，下面是偶数判断
;; 方法1
(defun evenp (data)
(and (= 'INT (type data))
       (= (/ data 2) (/ data 2.))
)
)

;; 方法2
(defun evenp (data)
(and (= 'INT (type data))
       (= 0 (boole 1 data 1))
)
)

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

ynhh 发表于 2016-8-16 09:26:08

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

kqqt6236 发表于 2016-8-16 09:38:12

明经可以上了？

lucas3 发表于 2016-8-16 09:44:50

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

HLCAD 发表于 2016-8-16 09:55:51

回复，向大师学习

iLisp 发表于 2016-8-16 11:23:02

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

llsheng_73 发表于 2016-8-18 09:21:58

看看更绝的

llsheng_73 发表于 2016-8-18 09:25:41

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

q3_2006 发表于 2016-8-18 09:25:42

不是用rem...??

viphappy 发表于 2016-8-18 10:05:53

向大师学习

Urings 发表于 2016-11-18 01:52:56

谢谢分享.

ayl1004 发表于 2016-11-18 03:00:45

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

yoyoho 发表于 2016-11-18 06:46:48

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

yjch 发表于 2016-11-18 08:11:25

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

Lisphk 发表于 2016-11-18 08:52:54

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

查看完整版本: 偶数判断