AtCoder Beginner Contest 012

Submission #3973847

Source codeソースコード

structure I  = Int
structure SC = StringCvt
structure T  = TextIO

fun nextInt () = valOf (T.scanStream (I.scan SC.DEC) T.stdIn)

val () =
    let
        val n = nextInt ()
        val h = n div 3600
        val m = (n - h * 3600) div 60
        val s = n - h * 3600 - m * 60
    in
        print ((if h >= 10 then "" else "0") ^ I.toString h ^ ":");
        print ((if m >= 10 then "" else "0") ^ I.toString m ^ ":");
        print ((if s >= 10 then "" else "0") ^ I.toString s ^ "\n")
    end

Submission

Task問題 B - 入浴時間
User nameユーザ名 masquerade0324
Created time投稿日時
Language言語 Standard ML (MLton 20100608)
Status状態 AC
Score得点 100
Source lengthソースコード長 513 Byte
File nameファイル名
Exec time実行時間 1 ms
Memory usageメモリ使用量 256 KB

Test case

Set

Set name Score得点 / Max score Cases
All 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
sample_01.txt AC 1 ms 256 KB
sample_02.txt AC 1 ms 256 KB
test_1.txt AC 1 ms 256 KB
test_17977.txt AC 1 ms 256 KB
test_25298.txt AC 1 ms 256 KB
test_36922.txt AC 1 ms 256 KB
test_44309.txt AC 1 ms 256 KB
test_52415.txt AC 1 ms 256 KB
test_60165.txt AC 1 ms 256 KB
test_65487.txt AC 1 ms 256 KB
test_70993.txt AC 1 ms 256 KB
test_80915.txt AC 1 ms 256 KB
test_84810.txt AC 1 ms 256 KB
test_86399.txt AC 1 ms 256 KB