Haskell playground created by essic - https://repl.it/J0S6/16

Haskell playground.hs

race :: Int -> Int -> Int -> Maybe (Int, Int, Int)
race v1 v2 g
  | v1 >= v2 = Nothing
  | otherwise = 
    let ts = convertToSecondsThenFloorIt $ calculateTimeToCatchUpInHours v1 v2 g
        h =  getHours ts
        m = getMinutes ts
        s = getSeconds ts
    in Just (h, m, s)
  where 
    calculateTimeToCatchUpInHours speed1 spped2 lead =
      (/) (fromIntegral lead) (fromIntegral (spped2 - speed1))  
    convertToSecondsThenFloorIt =
      floor . (* 3600) 
    getHours = (`div` 3600)
    getMinutes = (`div` 60) . (`rem` 3600)
    getSeconds = (`rem` 60) . (`rem` 3600)

main :: IO ()
main = putStrLn . show $ race 720 850 70