Submission #826142

Source Code Expand

main = do
  inputs <- map(read::[Char]->Int) <$> words <$> getLine
  let a = head inputs
      b = last inputs
      c = foldl (*) 1 [a..b]
      d = if(mod c 2 == 0) then "Positive" else "Negative"
  putStr d

Submission Info

Submission Time
Task A - Range Product
User mute1997
Language Haskell (GHC 7.10.3)
Score 0
Code Size 215 Byte
Status WA
Exec Time 2105 ms
Memory 508 KB

Judge Result

Set Name Sample Subtask1 All
Score / Max Score 0 / 0 0 / 100 0 / 100
Status
AC × 1
WA × 2
AC × 3
WA × 4
AC × 5
WA × 5
TLE × 1
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
Subtask1 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 2_00.txt, 2_01.txt, 2_02.txt, 2_03.txt
Case Name Status Exec Time Memory
0_00.txt AC 5 ms 508 KB
0_01.txt WA 5 ms 508 KB
0_02.txt WA 5 ms 508 KB
1_00.txt AC 5 ms 508 KB
1_01.txt AC 6 ms 508 KB
1_02.txt WA 5 ms 508 KB
1_03.txt WA 5 ms 508 KB
2_00.txt AC 1678 ms 508 KB
2_01.txt AC 1677 ms 508 KB
2_02.txt WA 1677 ms 508 KB
2_03.txt TLE 2105 ms 508 KB