結果

問題 No.521 Cheeses and a Mousetrap(チーズとネズミ捕り)
ユーザー r6eve
提出日時 2017-08-17 14:52:10
言語 OCaml
(5.2.1)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 239 bytes
コンパイル時間 359 ms
コンパイル使用メモリ 21,576 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-10-09 00:25:16
合計ジャッジ時間 1,229 ms
ジャッジサーバーID
(参考情報)
judge1 / judge4
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 28
権限があれば一括ダウンロードができます

ソースコード

diff #

let () =
  let n, k = Scanf.scanf "%d %d " (fun n k -> n, k) in
  if k <= 0 || k > n || n = 1 then print_endline "0"
  else if n mod 2 = 0 then Printf.printf "%d\n" (n - 2)
  else Printf.printf "%d\n" (n - if (n + 1) / 2 = k then 1 else 2)
0