Submission #1450039

Source Code Expand

main = getContents >>= putStrLn . solve . map read . words

solve (n:k:a:as) = if any (\a -> k <= a && (a - k) `mod` d == 0) (a:as)
  then "POSSIBLE" else "IMPOSSIBLE"
  where d = foldl gcd a as

Submission Info

Submission Time
Task A - Getting Difference
User Naoki_M_
Language Haskell (GHC 7.10.3)
Score 300
Code Size 198 Byte
Status AC
Exec Time 505 ms
Memory 12668 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 4
AC × 19
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt
All sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, sample_01.txt, sample_02.txt, sample_03.txt, sample_04.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt
Case Name Status Exec Time Memory
sample_01.txt AC 1 ms 508 KB
sample_02.txt AC 1 ms 508 KB
sample_03.txt AC 1 ms 508 KB
sample_04.txt AC 1 ms 508 KB
subtask_1_01.txt AC 1 ms 508 KB
subtask_1_02.txt AC 1 ms 508 KB
subtask_1_03.txt AC 503 ms 12668 KB
subtask_1_04.txt AC 505 ms 12668 KB
subtask_1_05.txt AC 265 ms 7548 KB
subtask_1_06.txt AC 75 ms 2812 KB
subtask_1_07.txt AC 311 ms 8188 KB
subtask_1_08.txt AC 446 ms 11644 KB
subtask_1_09.txt AC 206 ms 5500 KB
subtask_1_10.txt AC 367 ms 9212 KB
subtask_1_11.txt AC 405 ms 10620 KB