module Part2 where

import Commons


getSingleRace :: [Race] -> Race
getSingleRace [race] = race
getSingleRace (rh: t) = let otherRace = getSingleRace t
                        in Race {time = read $ show (time rh) ++ show (time otherRace),
                                 distance = read $ show (distance rh) ++ show (distance otherRace)}

getRange :: [Race] -> Int
getRange = getRaceRange . getSingleRace