fork download
  1. ; linked list palindrome
  2.  
  3. (define (palindrome? strs)
  4. (let ((cs (string->list (apply string-append strs))))
  5. (equal? cs (reverse cs))))
  6.  
  7. (display (palindrome? '("a" "bcd" "ef" "g" "f" "ed" "c" "ba"))) (newline)
  8. (display (palindrome? '("a" "bcd" "ef" "g" "f" "ed" "ba"))) (newline)
Success #stdin #stdout 0.01s 42024KB
stdin
Standard input is empty
stdout
#t
#f