結果

問題 No.345 最小チワワ問題
ユーザー r6ever6eve
提出日時 2017-08-12 10:01:06
言語 OCaml
(5.1.0)
結果
WA  
実行時間 -
コード長 701 bytes
コンパイル時間 298 ms
コンパイル使用メモリ 20,852 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-10-09 00:14:21
合計ジャッジ時間 1,494 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
5,248 KB
testcase_01 AC 2 ms
5,248 KB
testcase_02 AC 2 ms
5,248 KB
testcase_03 AC 2 ms
5,248 KB
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 AC 2 ms
5,248 KB
testcase_08 AC 2 ms
5,248 KB
testcase_09 AC 1 ms
5,248 KB
testcase_10 AC 1 ms
5,248 KB
testcase_11 AC 2 ms
5,248 KB
testcase_12 AC 2 ms
5,248 KB
testcase_13 AC 2 ms
5,248 KB
testcase_14 WA -
testcase_15 AC 1 ms
5,248 KB
testcase_16 WA -
testcase_17 WA -
testcase_18 WA -
testcase_19 AC 2 ms
5,248 KB
testcase_20 AC 1 ms
5,248 KB
testcase_21 AC 1 ms
5,248 KB
testcase_22 AC 1 ms
5,248 KB
testcase_23 WA -
testcase_24 WA -
testcase_25 WA -
testcase_26 WA -
testcase_27 WA -
testcase_28 AC 2 ms
5,248 KB
testcase_29 WA -
testcase_30 WA -
testcase_31 AC 2 ms
5,248 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

let () =
  let s = read_line () in
  let n = String.length s in
  let rec doit i c w =
    if i = n then c, w
    else begin
      if s.[i] = 'c' then
        if c <> (-1) then doit (i + 1) c w
        else doit (i + 1) i w
      else if s.[i] = 'w' then
        if c = (-1) then doit (i + 1) c w
        else
          match w with
          | [] -> doit (i + 1) c (i :: w)
          | [_] -> c, i :: w
          | _ -> assert false
      else doit (i + 1) c w
    end in
  let (c, w) = doit 0 (-1) [] in
  let n =
    if c = (-1) then (-1)
    else
      match w with
      | [] | [_] -> (-1)
      | [w; _] -> if c >= w then (-1) else w - c + 1
      | _ -> assert false in
  Printf.printf "%d\n" n
0