Longest palindromic substrings: Difference between revisions

Content added Content deleted

Inline

@@ Line 626: / Line 626: @@
 loop {
     last if $i >= @chars;
-    for 0, 1 {
+    for 1, 2 {
-       my int ($rev, $fwd) = $_, 0;
+       my int ($rev, $fwd) = $_, 1;
        loop {
-            quietly last if $rev > $i or $rev && (@chars[$i - $rev] ne @chars[$i + $fwd]);
+            last if ($rev > $i) || (($i + $fwd) == @chars) || (@chars[$i - $rev] ne @chars[$i + $fwd]);
             $rev = $rev + 1;
             $fwd = $fwd + 1;