結果

問題 No.29 パワーアップ
ユーザー 3qvwn3qvwn
提出日時 2019-07-08 09:29:06
言語 Elixir
(1.18.1)
結果
AC  
実行時間 611 ms / 5,000 ms
コード長 461 bytes
コンパイル時間 1,079 ms
コンパイル使用メモリ 62,700 KB
実行使用メモリ 57,288 KB
最終ジャッジ日時 2024-12-31 03:25:55
合計ジャッジ時間 15,559 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 611 ms
57,288 KB
testcase_01 AC 596 ms
54,480 KB
testcase_02 AC 600 ms
54,552 KB
testcase_03 AC 583 ms
54,456 KB
testcase_04 AC 582 ms
55,080 KB
testcase_05 AC 588 ms
54,256 KB
testcase_06 AC 585 ms
54,864 KB
testcase_07 AC 590 ms
54,500 KB
testcase_08 AC 588 ms
54,248 KB
testcase_09 AC 583 ms
54,380 KB
testcase_10 AC 606 ms
54,364 KB
testcase_11 AC 601 ms
54,456 KB
testcase_12 AC 591 ms
54,376 KB
testcase_13 AC 592 ms
54,512 KB
testcase_14 AC 597 ms
54,904 KB
testcase_15 AC 610 ms
54,256 KB
testcase_16 AC 593 ms
54,640 KB
testcase_17 AC 582 ms
55,124 KB
testcase_18 AC 591 ms
54,528 KB
testcase_19 AC 582 ms
55,448 KB
testcase_20 AC 597 ms
54,252 KB
testcase_21 AC 589 ms
54,916 KB
権限があれば一括ダウンロードができます

ソースコード

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