結果
問題 |
No.717 ファッションへのこだわり
|
ユーザー |
|
提出日時 | 2020-06-18 02:11:16 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 396 bytes |
コンパイル時間 | 262 ms |
コンパイル使用メモリ | 21,572 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 01:24:39 |
合計ジャッジ時間 | 839 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 10 |
ソースコード
Scanf.scanf "%d %d %s %s" (fun n m s t -> let count n s = let rec loop i a b = if i = n then a, b else if s.[i] = 'A' then loop (i + 1) (a + 1) b else loop (i + 1) a (b + 1) in loop 0 0 0 in let sa, sb = count n s in let ta, tb = count m t in Printf.printf "%d\n" @@ min sa ta + min sb tb )