7 lines
194 B
Text
7 lines
194 B
Text
(dup reverse ==) :palindrome?
|
|
(dup "" split reverse "" join ==) :str-palindrome?
|
|
|
|
"apple" str-palindrome? puts
|
|
"racecar" str-palindrome? puts
|
|
(a b c) palindrome? puts
|
|
(a b b a) palindrome? puts
|