Submission #1339933

Source Code Expand

main :: IO ()
main = do
  [a, b, c] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ if (100 * a + 10 * b + c) `mod` 4 == 0
             then "YES"
             else "NO"

Submission Info

Submission Time
Task A - RGB Cards
User nmjiri
Language Haskell (GHC 7.10.3)
Score 100
Code Size 185 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 7
Set Name Test Cases
Sample s1.txt, s2.txt
All in1.txt, in2.txt, in3.txt, in4.txt, in5.txt, s1.txt, s2.txt
Case Name Status Exec Time Memory
in1.txt AC 2 ms 508 KB
in2.txt AC 2 ms 508 KB
in3.txt AC 2 ms 508 KB
in4.txt AC 2 ms 508 KB
in5.txt AC 2 ms 508 KB
s1.txt AC 2 ms 508 KB
s2.txt AC 2 ms 508 KB