Submission #1407661


Source Code Expand

main = readLn >>= print . foldr (\x acc -> mod (x*acc) (10^9+7)) 1 . enumFromTo 1

Submission Info

Submission Time
Task B - Training Camp
User aimy
Language Haskell (GHC 7.10.3)
Score 200
Code Size 81 Byte
Status AC
Exec Time 16 ms
Memory 5500 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 1 ms 508 KB
00_example_02.txt AC 1 ms 508 KB
00_example_03.txt AC 16 ms 5500 KB
01.txt AC 1 ms 508 KB
02.txt AC 1 ms 508 KB
03.txt AC 16 ms 5500 KB
04.txt AC 13 ms 4092 KB