algorism – palindrome?

palindrome 알고리즘 문제이다.
일렬의 숫자를 뒤집어도 같은 수가 나오는지 판단
예) o: 121 > 121, 12344321 > 12344321
x: 1231 > 1321

(defn reverse-num [nn]
  (loop [n nn
         result 0]
    (if (not= n 0)
      (recur (int (/ n 10)) (+ (* result 10) (mod n 10)))
      result)))

(defn is-palindrome [n]
  (= (- n (reverse-num n)) 0))

(is-palindrome 12344321)

댓글 남기기

이메일은 공개되지 않습니다. 필수 입력창은 * 로 표시되어 있습니다