(defun panduan (x) (if (oddp x)
(format t "d是奇数%" x)
(format t "d是偶数%" x)))
(panduan 20)
(panduan 19)
运行结果如下:
Lisp20210527092112.png
d和%前面的~显示不出来了。
(defun panduan (x) (if (oddp x)
(format t "d是奇数%" x)
(format t "d是偶数%" x)))
(panduan 20)
(panduan 19)
运行结果如下:
d和%前面的~显示不出来了。
本文标题:用Lisp写的判断奇偶数的小程序
本文链接:https://www.haomeiwen.com/subject/fpjrsltx.html
网友评论