0. #lang racket
1.  
2. ;Problem 21. Write a predicate palindrome?, which processes a list of numbers and returns a boolean indicating whether the numbers would be the same in forward and reverse order. E.g.:
3. ;(palindrome? '()) → #t
4. ;(palindrome? '(1)) → #t
5. ;(palindrome? '(1 1)) → #t
6. ;(palindrome? '(1 2 1)) → #t
7. ;(palindrome? '(1 2 3 2 1)) → #t
8. ;(palindrome? '(1 2 3)) → #f
9. ;Assume you have the following functions available:
10. ;last—returns the last item in a list
11. ;butlast—return all items in the list except the last item
12. ;Do not define / use reverse. The following is correct but will not receive credit: (define (palindrome? lst) (equal? lst (reverse lst)))
13. ;Do not use map/filter/accumulate. Use direct recursion.
14.  
15. (define (palindrome? lst)
16.   (cond
17.     [(empty? lst) #t] ;if the list is empty its a palidrome
18.     [(= 1 (length-i lst)) #t];if we have reached the middle of the list then the list must be a palidrome
19.     [(not (= (car lst) (last lst))) #f];if the first element and the last element dont equal then the list is not a palidrome
20.     [else (palindrome? (butlast (cdr lst)))])) ;remove the (car lst) and (last lst) from the list and pass it in

=>