Submission #1308296

Source Code Expand

main :: IO ()
main = do
  [p, q] <- map read . words <$> getLine
  putStrLn . show . min (p - q) $ (q - 1)

Submission Info

Submission Time
Task A - 赤赤赤赤青
User g2_xpf
Language Haskell (GHC 7.10.3)
Score 100
Code Size 109 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 × 3
AC × 13
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt
Case Name Status Exec Time Memory
sample_01.txt AC 2 ms 508 KB
sample_02.txt AC 2 ms 508 KB
sample_03.txt AC 2 ms 508 KB
subtask1_01.txt AC 2 ms 508 KB
subtask1_02.txt AC 2 ms 508 KB
subtask1_03.txt AC 2 ms 508 KB
subtask1_04.txt AC 2 ms 508 KB
subtask1_05.txt AC 2 ms 508 KB
subtask1_06.txt AC 2 ms 508 KB
subtask1_07.txt AC 2 ms 508 KB
subtask1_08.txt AC 2 ms 508 KB
subtask1_09.txt AC 2 ms 508 KB
subtask1_10.txt AC 2 ms 508 KB