用Lisp写的判断奇偶数的小程序
2021-05-27 本文已影响0人
空庖
(defun panduan (x) (if (oddp x)
(format t "d是奇数%" x)
(format t "d是偶数%" x)))
(panduan 20)
(panduan 19)
运行结果如下:

d和%前面的~显示不出来了。
(defun panduan (x) (if (oddp x)
(format t "d是奇数%" x)
(format t "d是偶数%" x)))
(panduan 20)
(panduan 19)
运行结果如下:
d和%前面的~显示不出来了。