14 lines
408 B
Haskell
14 lines
408 B
Haskell
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
|