Longest palindromic substrings: Difference between revisions

Content added Content deleted

Inline

@@ Line 94: / Line 94: @@
 <lang haskell>-------------- LONGEST PALINDROMIC SUBSTRINGS ------------
 longestPalindromes :: String -> ([String], Int)
 longestPalindromes s = go $ palindromes s
@@ Line 112: / Line 111: @@
 palindromicNuclei :: String -> [(String, (String, String))]
-palindromicNuclei s = contexts >>= go
+palindromicNuclei =
+  concatMap go .
+  init . tail . ((zip . scanl (flip ((<>) . return)) []) <*> scanr (:) [])
   where
-    contexts = (init . tail) (zip prefixes suffixes)
-    prefixes = scanl (flip ((<>) . return)) [] s
-    suffixes = scanr (:) [] s
     go (a@(x:_), b@(h:y:ys)) =
       if x == h