; linked list palindrome
(define (palindrome? strs)
(let ((cs (string->list (apply string-append strs))))
(equal? cs (reverse cs))))
(display (palindrome? '("a" "bcd" "ef" "g" "f" "ed" "c" "ba"))) (newline)
(display (palindrome? '("a" "bcd" "ef" "g" "f" "ed" "ba"))) (newline)
OyBsaW5rZWQgbGlzdCBwYWxpbmRyb21lCgooZGVmaW5lIChwYWxpbmRyb21lPyBzdHJzKQogIChsZXQgKChjcyAoc3RyaW5nLT5saXN0IChhcHBseSBzdHJpbmctYXBwZW5kIHN0cnMpKSkpCiAgICAoZXF1YWw/IGNzIChyZXZlcnNlIGNzKSkpKQoKKGRpc3BsYXkgKHBhbGluZHJvbWU/ICcoImEiICJiY2QiICJlZiIgImciICJmIiAiZWQiICJjIiAiYmEiKSkpIChuZXdsaW5lKQooZGlzcGxheSAocGFsaW5kcm9tZT8gJygiYSIgImJjZCIgImVmIiAiZyIgImYiICJlZCIgICAgICJiYSIpKSkgKG5ld2xpbmUp