提出 #794046

ソースコード 拡げる

    main = do
      [n, x] <- (map read) . words <$> getLine
      print $ min (n - x) (x - 1)

提出情報

提出日時
問題 A - 赤赤赤赤青
ユーザ aruneko99
言語 Haskell (GHC 7.10.3)
得点 100
コード長 96 Byte
結果 AC
実行時間 6 ms
メモリ 508 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 3
AC × 13
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
sample_01.txt AC 6 ms 508 KiB
sample_02.txt AC 6 ms 508 KiB
sample_03.txt AC 6 ms 508 KiB
subtask1_01.txt AC 6 ms 508 KiB
subtask1_02.txt AC 6 ms 508 KiB
subtask1_03.txt AC 6 ms 508 KiB
subtask1_04.txt AC 6 ms 508 KiB
subtask1_05.txt AC 6 ms 508 KiB
subtask1_06.txt AC 6 ms 508 KiB
subtask1_07.txt AC 6 ms 508 KiB
subtask1_08.txt AC 6 ms 508 KiB
subtask1_09.txt AC 5 ms 508 KiB
subtask1_10.txt AC 6 ms 380 KiB