(defun re(n)
(setf len (length n))
(if (oddp len)
(setf mid (/ (1+ len) 2))
(setf mid (/ len 2)))
(or
(and (oddp len) (equal (subseq n 0 (1- mid)) (reverse (subseq n mid))))
(and (evenp len) (equal (subseq n 0 mid) (reverse (subseq n mid))))))
lisp（判断回文数）
最新推荐文章于 2021-02-07 01:30:22 发布
扫一扫
2865
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
