Submission #202418
Source Code Expand
{-# LANGUAGE BangPatterns #-} import Control.Applicative import Control.Monad import Control.Arrow import Data.List import Data.Maybe import Data.Char import Text.Printf readInt = ( readLn :: IO Int ) getInts = map ( read :: String -> Int ) . words <$> getLine which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = do n <- readInt let h = n `div` 3600 m = ( n - h * 3600 ) `div` 60 s = n - h * 3600 - m * 60 printf "%02d:%02d:%02d\n" h m s
Submission Info
Submission Time | |
---|---|
Task | B - 入浴時間 |
User | torus711 |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 489 Byte |
Status | AC |
Exec Time | 272 ms |
Memory | 1436 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 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 | 272 ms | 1308 KB |
sample_02.txt | AC | 28 ms | 1308 KB |
test_1.txt | AC | 28 ms | 1308 KB |
test_17977.txt | AC | 28 ms | 1436 KB |
test_25298.txt | AC | 27 ms | 1388 KB |
test_36922.txt | AC | 30 ms | 1376 KB |
test_44309.txt | AC | 27 ms | 1392 KB |
test_52415.txt | AC | 28 ms | 1308 KB |
test_60165.txt | AC | 34 ms | 1392 KB |
test_65487.txt | AC | 27 ms | 1308 KB |
test_70993.txt | AC | 28 ms | 1312 KB |
test_80915.txt | AC | 27 ms | 1304 KB |
test_84810.txt | AC | 27 ms | 1308 KB |
test_86399.txt | AC | 27 ms | 1384 KB |