Submission #1254985

Source Code Expand

solve :: Int -> Int
solve 1 = 1
solve n = n * (solve (n - 1)) `mod` 1000000007


main = getLine >>= putStrLn . show . solve . read

Submission Info

Submission Time
Task B - Training Camp
User nyashiki
Language Haskell (GHC 7.10.3)
Score 200
Code Size 136 Byte
Status AC
Exec Time 5 ms
Memory 2172 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 380 KB
00_example_02.txt AC 1 ms 508 KB
00_example_03.txt AC 5 ms 2172 KB
01.txt AC 1 ms 508 KB
02.txt AC 1 ms 380 KB
03.txt AC 5 ms 2172 KB
04.txt AC 4 ms 1788 KB