結果
問題 | No.2053 12345... |
ユーザー |
![]() |
提出日時 | 2024-08-12 16:09:13 |
言語 | Elixir (1.18.1) |
結果 |
TLE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,081 bytes |
コンパイル時間 | 4,537 ms |
コンパイル使用メモリ | 61,364 KB |
実行使用メモリ | 302,056 KB |
最終ジャッジ日時 | 2024-10-04 21:25:30 |
合計ジャッジ時間 | 43,049 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 30 TLE * 1 |
ソースコード
defmoduleMain dodef input, do: IO.read(:line) |> String.trimdef ii, do: input() |> String.to_integerdef 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# _n = ii()_n = 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.putsgg = a |> gp2(fn a, b -> a+1 == b end)IO.puts ggenddef group_by2([], _pred), do: []def group_by2(xs, pred) don = 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)]enddef gp2([], _pred), do: 0def gp2(xs, pred) don = Stream.chunk_every(xs, 2, 1, :discard)|> Stream.take_while(fn [a, b] -> pred.(a, b) end)|> Enum.countb = Enum.drop(xs, n+1)k = div((n+1) * n, 2)k + gp2(b, pred)#[n+1 | gp2(b, pred)]endend