AtCoder Beginner Contest 055

Submission #1871343

Source codeソースコード

main = interact $ (++"\n") . show . (\x -> foldl1 (\y z -> mod (y * z) 1000000007) [1..x]) . (read :: String -> Int)

Submission

Task問題 B - Training Camp
User nameユーザ名 amanuko
Created time投稿日時
Language言語 Haskell (GHC 7.10.3)
Status状態 AC
Score得点 200
Source lengthソースコード長 118 Byte
File nameファイル名
Exec time実行時間 4 ms
Memory usageメモリ使用量 892 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - 00_example_01.txt,00_example_02.txt,00_example_03.txt
All 200 / 200 00_example_01.txt,00_example_02.txt,00_example_03.txt,01.txt,02.txt,03.txt,04.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_example_01.txt AC 2 ms 508 KB
00_example_02.txt AC 2 ms 508 KB
00_example_03.txt AC 4 ms 892 KB
01.txt AC 2 ms 508 KB
02.txt AC 1 ms 380 KB
03.txt AC 4 ms 892 KB
04.txt AC 3 ms 892 KB