結果

問題 No.648 　お　や　す　み　
コンテスト
ユーザー wotsushi
提出日時 2018-07-30 20:09:21
言語 Elixir
(1.18.1)
結果
AC  
実行時間 582 ms / 2,000 ms
コード長 442 bytes
コンパイル時間 1,068 ms
コンパイル使用メモリ 62,824 KB
実行使用メモリ 56,684 KB
最終ジャッジ日時 2024-12-31 02:17:54
合計ジャッジ時間 50,040 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 84
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  defp bis(_, l, h) when l > h, do: :ng
  defp bis(n, l, h) do
    x = div(h + l, 2)
    s = div(x * (x + 1), 2)
    cond do
      s < n
        -> bis(n, x + 1, h)
      s == n
        -> x
      s > n
        -> bis(n, l, x - 1)
    end
  end

  def main do
    n = IO.gets("") |> String.trim |> String.to_integer

    ans = case bis(n, 1, n) do
      :ng -> "NO"
      m -> "YES\n#{m}"
    end

    IO.puts ans
  end
end
0