結果

問題 No.305 鍵(2)
ユーザー noriocnorioc
提出日時 2024-08-11 05:12:52
言語 Elixir
(1.18.1)
結果
AC  
実行時間 573 ms / 2,000 ms
コード長 880 bytes
コンパイル時間 1,072 ms
コンパイル使用メモリ 63,220 KB
実行使用メモリ 70,940 KB
平均クエリ数 86.69
最終ジャッジ日時 2024-08-11 05:13:03
合計ジャッジ時間 10,275 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 528 ms
70,876 KB
testcase_01 AC 553 ms
70,384 KB
testcase_02 AC 520 ms
70,516 KB
testcase_03 AC 543 ms
70,940 KB
testcase_04 AC 529 ms
69,880 KB
testcase_05 AC 521 ms
70,264 KB
testcase_06 AC 538 ms
70,764 KB
testcase_07 AC 533 ms
70,408 KB
testcase_08 AC 565 ms
70,400 KB
testcase_09 AC 546 ms
70,264 KB
testcase_10 AC 573 ms
70,528 KB
testcase_11 AC 539 ms
70,308 KB
testcase_12 AC 557 ms
70,588 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  def input, do: IO.read(:line) |> String.trim
  def ii, do: input() |> String.to_integer
  def li, do: input() |> String.split |> Enum.map(&String.to_integer/1)
  def yn(b), do: IO.puts(if b, do: "Yes", else: "No")

  def main do
    m = for i <- 0..9, into: %{}, do: {i, 0}
    f(0, m)
  end

  def f(p, m) do
    {i, _} = for i <- 0..9, reduce: {-1, -1} do
      {q, ma} ->
        m2 = Map.update!(m, p, fn _ -> i end)
        same = query(m2)
        if same == 10, do: System.halt()
        cond do
          same > ma -> {i, same}
          true -> {q, ma}
        end
    end

    m2 = Map.update!(m, p, fn _ -> i end)
    f(p+1, m2)
  end

  def query(m) do
    put(m)
    read()
  end

  def read() do
    [x, _msg] = input() |> String.split
    String.to_integer(x)
  end

  def put(m) do
    Map.values(m)
    |> Enum.join()
    |> IO.puts
  end
end
0