Submission #1837959

Source Code Expand

solve :: [Int] -> String
solve (n:m:k:_)
  | null a = "No"
  | otherwise = "Yes"
  where
    a = filter (== k) [n*i + m*j - 2*i*j | i <- [0..n], j <- [0..m]]

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

Submission Info

Submission Time
Task B - fLIP
User waaadaaap
Language Haskell (GHC 7.10.3)
Score 0
Code Size 226 Byte
Status WA
Exec Time 8 ms
Memory 636 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 200
Status
AC × 4
AC × 21
WA × 6
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt, s4.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, s1.txt, s2.txt, s3.txt, s4.txt
Case Name Status Exec Time Memory
01.txt AC 2 ms 508 KB
02.txt AC 3 ms 508 KB
03.txt AC 8 ms 636 KB
04.txt AC 8 ms 636 KB
05.txt AC 6 ms 636 KB
06.txt AC 5 ms 636 KB
07.txt WA 2 ms 508 KB
08.txt AC 2 ms 508 KB
09.txt AC 2 ms 508 KB
10.txt AC 2 ms 508 KB
11.txt WA 2 ms 508 KB
12.txt AC 2 ms 380 KB
13.txt AC 2 ms 508 KB
14.txt WA 2 ms 508 KB
15.txt WA 2 ms 508 KB
16.txt WA 2 ms 508 KB
17.txt WA 2 ms 508 KB
18.txt AC 8 ms 636 KB
19.txt AC 2 ms 508 KB
20.txt AC 2 ms 508 KB
21.txt AC 8 ms 636 KB
22.txt AC 1 ms 380 KB
23.txt AC 1 ms 380 KB
s1.txt AC 2 ms 380 KB
s2.txt AC 1 ms 380 KB
s3.txt AC 2 ms 508 KB
s4.txt AC 2 ms 380 KB