Submission #1871343

Source Code Expand

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

Submission Info

Submission Time
Task B - Training Camp
User amanuko
Language Haskell (GHC 7.10.3)
Score 200
Code Size 118 Byte
Status AC
Exec Time 4 ms
Memory 892 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 7
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt, 00_example_03.txt
All 00_example_01.txt, 00_example_02.txt, 00_example_03.txt, 01.txt, 02.txt, 03.txt, 04.txt
Case Name Status Exec Time Memory
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