結果

問題 No.1224 I hate Sqrt Inequality
ユーザー norioc
提出日時 2024-11-11 04:59:29
言語 Elixir
(1.18.1)
結果
AC  
実行時間 663 ms / 2,000 ms
コード長 498 bytes
コンパイル時間 5,698 ms
コンパイル使用メモリ 62,144 KB
実行使用メモリ 54,152 KB
最終ジャッジ日時 2024-11-11 04:59:46
合計ジャッジ時間 14,096 ms
ジャッジサーバーID
(参考情報)
judge5 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 2
other AC * 13
権限があれば一括ダウンロードができます

ソースコード

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)

  import Integer

  def divide_loop(x, d) do
    case rem(x, d) do
      0 -> divide_loop(div(x, d), d)
      _ -> x
    end
  end

  def main do
    [a, b] = li()

    x = div(b, gcd(a, b))
    res = divide_loop(divide_loop(x, 2), 5)
    case res do
      1 -> "No"
      _ -> "Yes"
    end
    |> IO.puts
  end
end
0