結果

問題 No.29 パワーアップ
コンテスト
ユーザー 3qvwn
提出日時 2019-07-08 09:29:06
言語 Elixir
(1.18.1)
結果
AC  
実行時間 623 ms / 5,000 ms
コード長 461 bytes
コンパイル時間 5,130 ms
コンパイル使用メモリ 79,572 KB
実行使用メモリ 74,868 KB
最終ジャッジ日時 2025-10-24 21:10:48
合計ジャッジ時間 19,066 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 22
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do 
  def main do
    n = IO.gets("") |> String.trim |> String.to_integer
    IO.stream(:stdio, :line) |> Enum.take(n) |> Enum.map(&String.trim/1) |> Enum.map(&String.split/1) |> Enum.map(&Enum.map(&1, fn num -> String.to_integer(num) end)) |> Enum.flat_map(fn x -> x end) |> Enum.group_by(fn x -> x end) |> Enum.map(fn  {_, value} -> Enum.count(value) end) |> Enum.map(fn x -> div(x,2) + rem(x,2)/4 end) |> Enum.sum |> trunc |> IO.puts
  end
end
0