結果
問題 | No.345 最小チワワ問題 |
ユーザー |
|
提出日時 | 2020-07-30 13:33:04 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 881 bytes |
コンパイル時間 | 436 ms |
コンパイル使用メモリ | 21,576 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-10-09 01:51:16 |
合計ジャッジ時間 | 1,770 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 29 |
ソースコード
let () = let rec search str start target count next = if start < String.length str then if str.[start] = 'c' && target = 'c' then search str (start+1) 'W' 1 next else if str.[start] = 'w' && target = 'W' then search str (start+1) 'w' (count+1) next else if str.[start] = 'w' && target = 'w' then if next = -1 then (start+1,count+1) else (next, count+1) else if str.[start] = 'c' && next = -1 then search str (start+1) target (count+1) start else search str (start+1) target (count+1) next else (next, -1) in Scanf.scanf "%s\n" @@ fun s -> let start = ref 0 in let ans = ref (String.length s + 1) in while !start <> -1 do let (next, count) = search s !start 'c' 0 (-1) in if !ans > count && count > 0 then ans := count; start := next; done; Printf.printf "%d\n" (if !ans = (String.length s + 1) then -1 else !ans)