lisp（判断回文数） 

(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))))))
posted @ 2012-04-03 10:11  Dsp Tian  阅读(597)  评论(0)  编辑  收藏  举报