11 lines
232 B
Text
11 lines
232 B
Text
# The readable recursive version
|
|
palindrome_i = (s, b, e):
|
|
if (e <= b): true.
|
|
elsif (s ord(b) != s ord(e)): false.
|
|
else: palindrome_i(s, b+1, e-1).
|
|
.
|
|
|
|
palindrome = (s):
|
|
palindrome_i(s, 0, s length - 1).
|
|
|
|
palindrome(argv(1))
|