RosettaCodeData/Task/Palindrome-detection/Scheme/palindrome-detection-1.ss

(define (palindrome? s)
  (let ((chars (string->list s)))
    (equal? chars (reverse chars))))
	`(define (palindrome? s)`
	`(let ((chars (string->list s)))`
	`(equal? chars (reverse chars))))`