結果

問題 No.1224 I hate Sqrt Inequality
コンテスト
ユーザー norioc
提出日時 2024-11-11 04:59:29
言語 Elixir
(1.19.5)
コンパイル:
elixirc _filename_
実行:
elixir -e Main.main
結果
AC  
実行時間 328 ms / 2,000 ms
コード長 498 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 784 ms
コンパイル使用メモリ 72,780 KB
実行使用メモリ 63,556 KB
最終ジャッジ日時 2026-05-09 13:07:38
合計ジャッジ時間 6,707 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge2_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 13
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

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