結果
問題 | No.224 文字列変更(easy) |
ユーザー |
![]() |
提出日時 | 2017-08-11 12:53:09 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 425 bytes |
コンパイル時間 | 247 ms |
コンパイル使用メモリ | 21,940 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:12:47 |
合計ジャッジ時間 | 1,038 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 22 |
ソースコード
module String = structinclude Stringlet fold_left f init str =let n = String.length str - 1 inlet rec doit i acc =if i > n then accelse doit (i + 1) (f acc str.[i]) indoit 0 initendlet () =read_int () |> ignore;let s = read_line () inlet t = read_line () inString.fold_left (fun (i, z) c -> (i + 1, z + if c = t.[i] then 0 else 1)) (0, 0) s|> snd |> Printf.printf "%d\n"