Submission #1776759


Source Code Expand

import Text.Printf

main :: IO ()
main = do
    n <- readLn :: IO Int
    let h = n `div` 3600
        hm = n `mod` 3600
        m = hm `div` 60
        s = hm `mod` 60
    printf "%02d:%02d:%02d\n" h m s

Submission Info

Submission Time
Task B - 入浴時間
User atctk
Language Haskell (GHC 7.10.3)
Score 100
Code Size 213 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 14
Set Name Test Cases
All sample_01.txt, sample_02.txt, test_1.txt, test_17977.txt, test_25298.txt, test_36922.txt, test_44309.txt, test_52415.txt, test_60165.txt, test_65487.txt, test_70993.txt, test_80915.txt, test_84810.txt, test_86399.txt
Case Name Status Exec Time Memory
sample_01.txt AC 2 ms 508 KB
sample_02.txt AC 2 ms 508 KB
test_1.txt AC 2 ms 508 KB
test_17977.txt AC 2 ms 508 KB
test_25298.txt AC 2 ms 508 KB
test_36922.txt AC 2 ms 508 KB
test_44309.txt AC 2 ms 508 KB
test_52415.txt AC 2 ms 508 KB
test_60165.txt AC 2 ms 508 KB
test_65487.txt AC 2 ms 508 KB
test_70993.txt AC 2 ms 508 KB
test_80915.txt AC 2 ms 508 KB
test_84810.txt AC 2 ms 508 KB
test_86399.txt AC 2 ms 508 KB