Longest palindromic substrings: Difference between revisions
m
→{{header|Haskell}}: Tidied some if then else away
(→{{header|Haskell}}: Slightly expanded range of examples) |
m (→{{header|Haskell}}: Tidied some if then else away) |
||
Line 96:
longestPalindromes :: String -> ([String], Int)
longestPalindromes s =
where
go xs
| null xs = (return <$> s, 1)
| otherwise = (filter ((w ==) . length) xs, w)
palindromes :: String -> [String]
Line 127 ⟶ 123:
| x == y ]
go _ = []
--------------------------- TEST -------------------------
| |||