結果

問題 No.2053 12345...
ユーザー noriocnorioc
提出日時 2024-08-12 18:16:20
言語 Elixir
(1.16.2)
結果
AC  
実行時間 1,690 ms / 2,000 ms
コード長 1,081 bytes
コンパイル時間 2,301 ms
コンパイル使用メモリ 62,764 KB
実行使用メモリ 272,736 KB
最終ジャッジ日時 2024-08-12 18:17:02
合計ジャッジ時間 42,068 ms
ジャッジサーバーID
(参考情報)
judge2 / judge5
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 536 ms
54,168 KB
testcase_01 AC 554 ms
55,748 KB
testcase_02 AC 595 ms
56,412 KB
testcase_03 AC 865 ms
103,796 KB
testcase_04 AC 1,632 ms
191,936 KB
testcase_05 AC 780 ms
83,424 KB
testcase_06 AC 1,306 ms
194,572 KB
testcase_07 AC 1,241 ms
141,972 KB
testcase_08 AC 1,235 ms
139,480 KB
testcase_09 AC 1,569 ms
216,400 KB
testcase_10 AC 1,634 ms
259,444 KB
testcase_11 AC 762 ms
80,548 KB
testcase_12 AC 715 ms
65,668 KB
testcase_13 AC 1,636 ms
240,900 KB
testcase_14 AC 996 ms
121,692 KB
testcase_15 AC 926 ms
109,844 KB
testcase_16 AC 890 ms
106,652 KB
testcase_17 AC 774 ms
83,164 KB
testcase_18 AC 1,674 ms
258,076 KB
testcase_19 AC 1,542 ms
206,140 KB
testcase_20 AC 672 ms
65,024 KB
testcase_21 AC 1,238 ms
142,892 KB
testcase_22 AC 569 ms
54,380 KB
testcase_23 AC 709 ms
72,156 KB
testcase_24 AC 1,086 ms
107,636 KB
testcase_25 AC 1,673 ms
264,276 KB
testcase_26 AC 1,277 ms
155,524 KB
testcase_27 AC 1,037 ms
107,676 KB
testcase_28 AC 1,011 ms
96,732 KB
testcase_29 AC 1,478 ms
181,928 KB
testcase_30 AC 895 ms
97,724 KB
testcase_31 AC 1,431 ms
172,284 KB
testcase_32 AC 1,690 ms
272,736 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
    input()
    a = li()

    gg = a |> group_by2(fn a, b -> a+1 == b end)
    for g <- gg, reduce: 0 do
      acc ->
        k = length(g)
        div(k * (k-1), 2) + acc
    end
    |> IO.puts
  end

  # def group_by2([], _pred), do: []
  # def group_by2(xs, pred) do
  #   n = Stream.chunk_every(xs, 2, 1, :discard)
  #   |> Stream.take_while(fn [a, b] -> pred.(a, b) end)
  #   |> Enum.count

  #   {a, b} = Enum.split(xs, n+1)
  #   [a | group_by2(b, pred)]
  # end


  def group_by2([], _pred), do: []
  def group_by2([x | xs], pred), do: _group_by2(xs, pred, [x])

  defp _group_by2([], _pred, acc), do: [Enum.reverse(acc)]
  defp _group_by2([x | xs], pred, acc) do
    if pred.(hd(acc), x) do
      _group_by2(xs, pred, [x | acc])
    else
      a = Enum.reverse(acc)
      [a | _group_by2(xs, pred, [x])]
    end
  end
end
0