Submission #1460764


Source Code Expand

main = do
  [x,y] <- map read . words <$> getLine
  print (scalc x y)
 
scalc x y
 | x <= y = d + sign1
 | otherwise = d + 1 + sign2
  where
    d = abs (abs x - abs y)
    sign1 = if signum x == negate (signum y) then 1 else 0
    sign2 = if signum x == negate (signum y) then 0 else 1

Submission Info

Submission Time
Task A - Simple Calculator
User aimy
Language Haskell (GHC 7.10.3)
Score 0
Code Size 296 Byte
Status WA
Exec Time 1 ms
Memory 508 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 300
Status
AC × 3
AC × 12
WA × 2
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt, 1_06.txt, 1_07.txt, 1_08.txt, 1_09.txt, 1_10.txt
Case Name Status Exec Time Memory
0_00.txt AC 1 ms 508 KB
0_01.txt AC 1 ms 508 KB
0_02.txt AC 1 ms 508 KB
1_00.txt AC 1 ms 508 KB
1_01.txt AC 1 ms 508 KB
1_02.txt WA 1 ms 508 KB
1_03.txt WA 1 ms 508 KB
1_04.txt AC 1 ms 508 KB
1_05.txt AC 1 ms 508 KB
1_06.txt AC 1 ms 508 KB
1_07.txt AC 1 ms 508 KB
1_08.txt AC 1 ms 508 KB
1_09.txt AC 1 ms 508 KB
1_10.txt AC 1 ms 508 KB