Submission #9425385

Source Code Expand

import           Control.Monad
import qualified Data.ByteString.Char8 as BS
import           Data.Maybe

readInt = fst . fromJust . BS.readInt
getInt = readInt <$> BS.getLine

primes = sieve [2..]
  where sieve (p:xs) = p : sieve [x | x <- xs, x `mod` p /= 0]

main = do
  x <- getInt
  let ans = head . (dropWhile (< x)) $ primes
  print ans

Submission Info

Submission Time
Task C - Next Prime
User unnohideyuki
Language Haskell (GHC 7.10.3)
Score 0
Code Size 355 Byte
Status TLE
Exec Time 2103 ms
Memory 3452 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 300
Status
AC × 2
TLE × 1
AC × 18
TLE × 2
Set Name Test Cases
Sample 00-sample-01.txt, 00-sample-02.txt, 00-sample-03.txt
All 00-sample-01.txt, 00-sample-02.txt, 00-sample-03.txt, 01-small-01.txt, 01-small-02.txt, 01-small-03.txt, 01-small-04.txt, 01-small-05.txt, 02-large-01.txt, 02-large-02.txt, 02-large-03.txt, 02-large-04.txt, 02-large-05.txt, 03-len-21.txt, 03-len-33.txt, 03-len-35.txt, 03-len-43.txt, 03-len-51.txt, 03-len-71.txt, 04-max-01.txt
Case Name Status Exec Time Memory
00-sample-01.txt AC 1 ms 380 KiB
00-sample-02.txt AC 1 ms 380 KiB
00-sample-03.txt TLE 2103 ms 3452 KiB
01-small-01.txt AC 1 ms 380 KiB
01-small-02.txt AC 1 ms 380 KiB
01-small-03.txt AC 1 ms 380 KiB
01-small-04.txt AC 1 ms 508 KiB
01-small-05.txt AC 1 ms 380 KiB
02-large-01.txt AC 852 ms 2044 KiB
02-large-02.txt AC 1693 ms 2428 KiB
02-large-03.txt AC 1768 ms 2300 KiB
02-large-04.txt AC 704 ms 1916 KiB
02-large-05.txt AC 645 ms 1916 KiB
03-len-21.txt AC 2 ms 1020 KiB
03-len-33.txt AC 2 ms 1020 KiB
03-len-35.txt AC 21 ms 1276 KiB
03-len-43.txt AC 53 ms 1532 KiB
03-len-51.txt AC 80 ms 1532 KiB
03-len-71.txt AC 199 ms 1660 KiB
04-max-01.txt TLE 2103 ms 3452 KiB