結果

問題 No.22 括弧の対応
ユーザー yukiccoyukicco
提出日時 2018-11-20 08:56:14
言語 Elixir
(1.18.1)
結果
AC  
実行時間 580 ms / 5,000 ms
コード長 954 bytes
コンパイル時間 1,106 ms
コンパイル使用メモリ 62,756 KB
実行使用メモリ 55,504 KB
最終ジャッジ日時 2024-12-31 02:35:37
合計ジャッジ時間 12,970 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 19
権限があれば一括ダウンロードができます

ソースコード

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