Submission #202462

---

Source Code Expand

import Control.Applicative

solve :: Int -> String
solve n = let (n',sec) = quotRem n 60;
              (hours,minutes) = quotRem n' 60;
          in (z hours) ++":"++ (z minutes) ++":"++ (z sec)
  where
    z n
      | n < 10 = "0" ++ show n
      | otherwise = show n

main = do
  n <- read <$> getLine
  putStrLn $ solve n

Submission Info

Judge Result