結果

問題 No.29 パワーアップ
ユーザー 3qvwn3qvwn
提出日時 2019-07-08 09:29:06
言語 Elixir
(1.16.2)
結果
AC  
実行時間 559 ms / 5,000 ms
コード長 461 bytes
コンパイル時間 1,301 ms
コンパイル使用メモリ 62,316 KB
実行使用メモリ 54,904 KB
最終ジャッジ日時 2024-06-09 22:56:46
合計ジャッジ時間 14,738 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 546 ms
54,672 KB
testcase_01 AC 536 ms
54,460 KB
testcase_02 AC 552 ms
54,516 KB
testcase_03 AC 547 ms
54,388 KB
testcase_04 AC 553 ms
54,436 KB
testcase_05 AC 558 ms
54,664 KB
testcase_06 AC 557 ms
54,448 KB
testcase_07 AC 548 ms
54,448 KB
testcase_08 AC 542 ms
54,808 KB
testcase_09 AC 546 ms
54,904 KB
testcase_10 AC 540 ms
54,436 KB
testcase_11 AC 556 ms
54,436 KB
testcase_12 AC 547 ms
54,260 KB
testcase_13 AC 554 ms
54,792 KB
testcase_14 AC 545 ms
54,648 KB
testcase_15 AC 550 ms
54,312 KB
testcase_16 AC 553 ms
54,444 KB
testcase_17 AC 557 ms
54,596 KB
testcase_18 AC 559 ms
54,576 KB
testcase_19 AC 535 ms
54,376 KB
testcase_20 AC 556 ms
54,644 KB
testcase_21 AC 534 ms
54,320 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