palindrome.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/run/current-system/profile/bin/guile \
-e main -s
!#


(define (main args)
  (format #t "String was ~aa palindrome!\n"
          (if (palindrome? (cleanup (car (cdr args))))
              "" "not ")))

(define (cleanup str)
  (string-downcase (string-filter
                    char-set:letter str)))

(define (palindrome? str)
  (equal? str (string-reverse str)))