結果

問題 No.305 鍵(2)
ユーザー noriocnorioc
提出日時 2024-08-11 04:50:06
言語 Elixir
(1.16.2)
結果
AC  
実行時間 579 ms / 2,000 ms
コード長 1,078 bytes
コンパイル時間 2,889 ms
コンパイル使用メモリ 62,060 KB
実行使用メモリ 70,848 KB
平均クエリ数 44.08
最終ジャッジ日時 2024-08-11 04:50:18
合計ジャッジ時間 10,354 ms
ジャッジサーバーID
(参考情報)
judge2 / judge5
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 539 ms
70,848 KB
testcase_01 AC 522 ms
70,304 KB
testcase_02 AC 537 ms
69,940 KB
testcase_03 AC 523 ms
70,504 KB
testcase_04 AC 538 ms
69,996 KB
testcase_05 AC 566 ms
70,468 KB
testcase_06 AC 539 ms
70,528 KB
testcase_07 AC 576 ms
69,892 KB
testcase_08 AC 554 ms
70,148 KB
testcase_09 AC 579 ms
70,796 KB
testcase_10 AC 530 ms
70,520 KB
testcase_11 AC 555 ms
70,724 KB
testcase_12 AC 541 ms
70,532 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}
    same = request(m)
    f(0, same, m)
  end

  def f(_p, 10, _m), do: nil # 終了
  def f(p, same, m) do
    m2 = Map.update!(m, p, fn v -> v+1 end)
    same2 = request(m2)
    cond do
      # 一致する数に変化がなかった。同じ桁を再探索
      same2 == same ->
        f(p, same2, m2)
      # 一致する数が増えた。次の桁へ
      same2 > same ->
        f(p+1, same2, m2)
      # 一致する数が減った。以前の数が答え
      true ->
        m3 = Map.update!(m2, p, fn v -> v-1 end)
        f(p+1, same, m3)
    end
  end

  def request(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