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