結果

問題 No.406 鴨等間隔の法則
ユーザー gemmarogemmaro
提出日時 2020-04-19 07:56:46
言語 Elixir
(1.16.2)
結果
AC  
実行時間 711 ms / 2,000 ms
コード長 500 bytes
コンパイル時間 1,145 ms
コンパイル使用メモリ 54,900 KB
実行使用メモリ 97,240 KB
最終ジャッジ日時 2023-08-30 00:24:53
合計ジャッジ時間 25,469 ms
ジャッジサーバーID
（参考情報） 		judge15 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 659 ms
72,256 KB
testcase_01 AC 609 ms
49,344 KB
testcase_02 AC 614 ms
49,600 KB
testcase_03 AC 606 ms
49,296 KB
testcase_04 AC 700 ms
79,284 KB
testcase_05 AC 654 ms
62,916 KB
testcase_06 AC 658 ms
63,852 KB
testcase_07 AC 655 ms
63,780 KB
testcase_08 AC 710 ms
81,012 KB
testcase_09 AC 701 ms
97,240 KB
testcase_10 AC 652 ms
68,200 KB
testcase_11 AC 689 ms
75,432 KB
testcase_12 AC 648 ms
66,972 KB
testcase_13 AC 649 ms
69,004 KB
testcase_14 AC 683 ms
78,652 KB
testcase_15 AC 608 ms
50,396 KB
testcase_16 AC 631 ms
52,548 KB
testcase_17 AC 619 ms
50,108 KB
testcase_18 AC 631 ms
52,812 KB
testcase_19 AC 645 ms
51,508 KB
testcase_20 AC 625 ms
52,556 KB
testcase_21 AC 627 ms
55,324 KB
testcase_22 AC 630 ms
58,412 KB
testcase_23 AC 678 ms
74,024 KB
testcase_24 AC 684 ms
81,984 KB
testcase_25 AC 708 ms
85,392 KB
testcase_26 AC 711 ms
87,456 KB
testcase_27 AC 700 ms
80,608 KB
testcase_28 AC 703 ms
82,244 KB
testcase_29 AC 700 ms
87,636 KB
testcase_30 AC 703 ms
80,960 KB
testcase_31 AC 701 ms
81,836 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  def main do
    IO.read(:line)

    IO.read(:line)
    |> String.split()
    |> Enum.map(&String.to_integer/1)
    |> solve
    |> IO.puts()
  end

  def solve(x) do
    d =
      x
      |> Enum.sort()
      |> each_cons_2
      |> Enum.map(fn {a, b} -> b - a end)

    cond do
      d |> Enum.uniq() |> length <= 1 && d |> hd != 0 -> "YES"
      true -> "NO"
    end
  end

  def each_cons_2(l) do
    [l |> Enum.slice(0..-2), l |> Enum.slice(1..-1)]
    |> Enum.zip()
  end
end
0