5 lines
131 B
Text
5 lines
131 B
Text
procedure palindrome(x) #: return x if s is x palindrome
|
|
local i
|
|
every if x[i := 1 to (*x+ 1)/2] ~== x[-i] then fail
|
|
return x
|
|
end
|