Longest palindromic substrings: Difference between revisions
m
→{{header|ALGOL 68}}
(→{{header|ALGOL 68}}: slight simplification) |
|||
Line 78:
INT p end := i + 1;
IF IF s[ i - 1 ] = s[ i + 1 ] THEN
# odd length palindrome at i - 1 #
p start -:= 1;
TRUE
ELIF s[ i ] = s[ i + 1 ] THEN
# even length palindrome at i #
TRUE
ELSE FALSE
FI
| |||