ChrRaz icon

196

ChrRaz | PRO | 08/31/15 04:39:40 PM UTC | 0 ⭐ | 6765 👁️ | Never ⏰ | []
Scheme |

480 B

|

None

|

0 👍

/

0 👎

Raw Download Clone Embed Print View 
#lang racket
 
(define (display-line str)
  (display str)
  (newline))
 
(define (reverse-number n)
  (string->number
   (list->string
    (reverse
     (string->list
      (number->string
       n))))))
 
(define (is-palindrome? n)
  (= n
     (reverse-number n)))
 
(define (reverse-and-add n)
  (+ n (reverse-number n)))
 
(define (find-palindrome n)
  (if (is-palindrome? n)
      n
      (begin
        (display-line n)
        (find-palindrome (reverse-and-add n)))))

Comments