Discussion on: Daily Challenge #251 - Largest Number in a Sequence

chunks :: String -> [String]
chunks (a:b:c:d:e:rest) = [a, b, c, d, e] : chunks (b:c:d:e:rest)
chunks _ = []

digit5 :: Int -> Int
digit5 number =
    read $ foldl max "" $ chunks $ show number

main :: IO ()
main = do
    print $ digit5 1234567890       -- 67890
    print $ digit5 1234567898765    -- 98765
    print $ digit5 7316717          -- 73167