Longest palindromic substrings: Difference between revisions

Content added Content deleted

Inline

@@ Line 96: / Line 96: @@
 longestPalindromes :: String -> ([String], Int)
-longestPalindromes s = (filter ((w ==) . length) cs, w)
+longestPalindromes s = go $ palindromes s
   where
-    xs = palindromes s
+    go xs
+      | null xs = (return <$> s, 1)
-    cs =
+      | otherwise = (filter ((w ==) . length) xs, w)
-      if null xs
-        then return <$> s
+      where
-        else xs
+        w = maximum $ length <$> xs
-    w =
-      if null xs
-        then 1
-        else maximum $ length <$> xs
 palindromes :: String -> [String]
@@ Line 127: / Line 123: @@
              | x == y ]
     go _ = []
 --------------------------- TEST -------------------------