Clojure Палиндром

(defun Div-Num (num &optional acc &aux (r (rem num 10)))
  (if (< num 1)
      acc
      (Div-Num (/ (- num r) 10) (cons r acc))))
 
(Div-Num 2222)
; (2 2 2 2)
(Div-Num 6116)
; (6 1 1 6)

(defn task [n]
  (letfn [(result [n]
            (when (= n (reverse-number n)) true))
          (reverse-number [n]
            (loop [n n acc 0]
              (if (zero? n)
                acc
                (recur (quot n 10) (+ (* acc 10) (rem n 10))))))]
    (result n)))
;; => #'user/task
 
(task 6116)
;; => true
(task 6126)
;; => nil

(defun palindrome-number (w)
  (equal (write-to-string w) (reverse (write-to-string w))))
 
> (palindrome-number 6116)
T
> (palindrome-number 6117)
NIL

(defun palindrome-number (w &aux (v (write-to-string w)))
  (equal v (reverse v)))
 
> (palindrome-number 6116)
T
> (palindrome-number 6117)
NIL

(defun is-Pal (n)
  (let ((s (fix2str n))) (eq s (strRev s))))
 
==> is-Pal
 
(is-Pal 123)
 
==> NIL
 
(is-Pal 121)
 
==> T

(defun is-pal (n)
  (let ((r nil))
    (loop
      (when (zerop n) (return (equal r (reverse r))))
      (push (rem n 10) r)
      (setq n (\ n 10)))))
 
==> is-Pal
 
(is-Pal 121)
 
==> T
 
(is-Pal 123)
 
==> NIL

(defun pal(a)
(cond ((< a 10) T)
  (T (= (rem a 10)(pal (rev (truncate (/a 10)))))))) 
 
(defun rev(b)
  (parse-integer (reverse (write-to-string b))))

(defun is-pal (n &optional (i n) (o 0))
  (if (zerop n) (= i o) (is-pal (\ n 10) i (+ (* o 10) (% n 10)))))

(defun is-pal (n &optional (i n) (o 0))
  (if (zerop n) (= i o) (is-pal (truncate (/ n 10)) i (+ (* o 10) (rem n 10)))))

(defun palindrome-number (n)
  (cond ((< n 10))
        ((eq (take-left n) (take-right n))
         (palindrome-number (trim-left (trim-right n))))))
 
(defun take-right (n)
  (rem n 10))
 
(defun take-left (n)
  (if (< n 10) n (take-left (truncate n 10))))
 
(defun trim-left (n &optional (z n) (m 0))
  (if (< n 10)
      (rem z (expt 10 m))
      (trim-left (truncate n 10) z (1+ m))))
 
(defun trim-right (n)
  (truncate n 10))
 
> (palindrome-number 61516)
T
> (palindrome-number 61517)
NIL