結果

問題 No.22 括弧の対応
ユーザー yukiccoyukicco
提出日時 2018-11-20 08:56:14
言語 Elixir
(1.16.2)
結果
AC  
実行時間 583 ms / 5,000 ms
コード長 954 bytes
コンパイル時間 876 ms
コンパイル使用メモリ 64,112 KB
実行使用メモリ 55,056 KB
最終ジャッジ日時 2024-06-09 22:22:54
合計ジャッジ時間 12,996 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 546 ms
54,412 KB
testcase_01 AC 549 ms
54,720 KB
testcase_02 AC 562 ms
54,584 KB
testcase_03 AC 582 ms
54,764 KB
testcase_04 AC 548 ms
54,384 KB
testcase_05 AC 556 ms
55,056 KB
testcase_06 AC 548 ms
54,792 KB
testcase_07 AC 583 ms
54,312 KB
testcase_08 AC 549 ms
54,572 KB
testcase_09 AC 536 ms
53,792 KB
testcase_10 AC 562 ms
54,640 KB
testcase_11 AC 546 ms
54,764 KB
testcase_12 AC 538 ms
54,056 KB
testcase_13 AC 532 ms
53,908 KB
testcase_14 AC 561 ms
54,292 KB
testcase_15 AC 551 ms
54,468 KB
testcase_16 AC 559 ms
54,320 KB
testcase_17 AC 556 ms
54,688 KB
testcase_18 AC 575 ms
54,828 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
    def paren(str, n) do
        left_fn =
            fn ->
                s = str |> String.slice((n)..-1)
                r = ~r/^(\(*)\(\)(.*)$/
                n + _paren(s, r)
            end
        right_fn =
            fn ->
                s = str |> String.slice(0..(n - 2))
                r = ~r/^(.*)\(\)(\)*)$/
                n - _paren(s, r)
            end
        n_char = str |> String.graphemes |> Enum.at(n - 1)
        case n_char do
            "(" -> left_fn.()
            ")" -> right_fn.()
        end
    end
    defp _paren(str, re, acc \\ 0) do
        case Regex.run(re, str, capture: :all_but_first) do
            nil -> acc + 1
            [s1, s2] -> _paren(s1 <> s2, re, acc + 2)
        end
    end
    def main do

        inputs = IO.binread(:all) |> String.split

        k = inputs |> Enum.at(1) |> String.to_integer
        s = inputs |> Enum.at(2)

        IO.puts paren(s, k)

    end
end
0