Longest palindromic substrings: Difference between revisions

m
→‎{{header|REXX}}: moved a statement.
(→‎{{header|Raku}}: Fix buggy logic for palindromes with > 2 same character at core. Thanks Petelomax)
m (→‎{{header|REXX}}: moved a statement.)
Line 663:
if s=='' | s=="," then s= 'babaccd rotator reverse forever several palindrome abaracadaraba'
/* [↑] the case of strings is respected*/
do i=1 for words(s); say; say /*search each of the (S) strings. */
x= word(s, i); L= length(x) /*get a string to be examined & length.*/
m= 0
Line 676:
say ' (length='LL") " word(@, n)
end /*n*/
say
end /*i*/
exit 0 /*stick a fork in it, we're all done. */