結果
問題 | No.22 括弧の対応 |
ユーザー |
![]() |
提出日時 | 2017-08-15 13:16:19 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 546 bytes |
コンパイル時間 | 355 ms |
コンパイル使用メモリ | 21,576 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-10-09 00:17:23 |
合計ジャッジ時間 | 1,118 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 19 |
ソースコード
let () = let n, k = Scanf.scanf "%d %d " (fun n k -> n, k) in let s = Scanf.scanf "%s " (fun i -> i) in let rec doit i acc pairs = if i = n then pairs else if s.[i] = '(' then doit (i + 1) (i :: acc) pairs else match acc with | [] -> assert false | j :: tl -> doit (i + 1) tl ((j + 1, i + 1) :: pairs) in let rec aux = function | [] -> assert false | (j, i) :: tl -> if j = k then Printf.printf "%d\n" i else if i = k then Printf.printf "%d\n" j else aux tl in doit 0 [] [] |> aux