Anonymous user
Palindrome detection: Difference between revisions
→{{header|Forth}}
(→{{header|AppleScript}}: Updated primitives) |
|||
Line 1,350:
0 do over I' 1- I - + over I + 1 cmove loop 2drop ;
: palindrome? (
get-phrase strip-input position-phrase reverse-copy compare 0= if
." << Valid >> Palindrome."
| |||