結果

問題 No.859 路線A、路線B、路線C
ユーザー pekempeypekempey
提出日時 2019-08-10 03:52:48
言語 OCaml
(5.1.0)
結果
AC  
実行時間 2 ms / 1,000 ms
コード長 953 bytes
コンパイル時間 253 ms
コンパイル使用メモリ 21,448 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-04-17 08:48:30
合計ジャッジ時間 1,002 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
5,248 KB
testcase_01 AC 2 ms
5,376 KB
testcase_02 AC 2 ms
5,376 KB
testcase_03 AC 2 ms
5,376 KB
testcase_04 AC 2 ms
5,376 KB
testcase_05 AC 2 ms
5,376 KB
testcase_06 AC 2 ms
5,376 KB
testcase_07 AC 2 ms
5,376 KB
testcase_08 AC 2 ms
5,376 KB
testcase_09 AC 2 ms
5,376 KB
testcase_10 AC 2 ms
5,376 KB
testcase_11 AC 2 ms
5,376 KB
testcase_12 AC 2 ms
5,376 KB
testcase_13 AC 2 ms
5,376 KB
testcase_14 AC 2 ms
5,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

open Scanf
open Printf

let pair x y = x, y
let triple x y z = x, y, z
let mins = List.fold_left min max_int

let rec solve x y z s0 t0 s1 t1 =
  let fhead s k = match s with
  | "A" -> min (2*(k-1) + 1) (2*(x-k) + 3 + min (2*y-2) (2*z-2))
  | "B" -> min (2*(k-1) + 1) (2*(y-k) + 3 + min (2*x-2) (2*z-2))
  | _   -> min (2*(k-1) + 1) (2*(z-k) + 3 + min (2*x-2) (2*y-2)) in

  let ftail s k = match s with
  | "A" -> min (2*(k-1) + 3 + min (2*y-2) (2*z-1)) (2*(x-k) + 1)
  | "B" -> min (2*(k-1) + 3 + min (2*x-2) (2*z-1)) (2*(y-k) + 1)
  | _   -> min (2*(k-1) + 3 + min (2*x-2) (2*y-1)) (2*(z-k) + 1) in

  if s0 = s1
    then mins [2 * abs (t1 - t0); fhead s0 t0 + fhead s1 t1; ftail s0 t0 + ftail s1 t1]
    else mins [fhead s0 t0 + fhead s1 t1; ftail s0 t0 + ftail s1 t1]

let () = 
  let x, y, z = scanf " %d %d %d" triple in
  let s0, t0 = scanf " %s %d" pair in
  let s1, t1 = scanf " %s %d" pair in
  printf "%d\n" @@ (solve x y z s0 t0 s1 t1) / 2
0