博客

lisp（判断回文数）

  • Post author:
  • Post category:其他


(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))))))

转载于:https://www.cnblogs.com/tiandsp/archive/2012/04/03/2430722.html