-- Get the maximum number of the same outputs.
maxSameOutput :: [Int] -> Int
maxSameOutput = foldr (\x acc -> if x > acc then x else acc) 0
maxSameOutput :: [Int] -> Int
maxSameOutput = foldr (\x acc -> if x > acc then x else acc) 0
maxSameOutput = foldr (\x acc -> if x > acc then x else acc) 0