15 lines
421 B
AppleScript
15 lines
421 B
AppleScript
on isPalindrome(txt)
|
|
set txt to join(txt, "") -- In case the input's a list (array).
|
|
return (txt = join(reverse of txt's characters, ""))
|
|
end isPalindrome
|
|
|
|
on join(lst, delim)
|
|
set astid to AppleScript's text item delimiters
|
|
set AppleScript's text item delimiters to delim
|
|
set txt to lst as text
|
|
set AppleScript's text item delimiters to astid
|
|
return txt
|
|
end join
|
|
|
|
return isPalindrome("Radar")
|