5 lines
128 B
Text
5 lines
128 B
Text
(de palindrome? (S)
|
|
(= (setq S (chop S)) (reverse S)) )
|
|
|
|
(test T (palindrome? "racecar"))
|
|
(test NIL (palindrome? "ferrari"))
|