結果

問題 No.933 おまわりさんこいつです
ユーザー noriocnorioc
提出日時 2024-11-08 02:54:12
言語 Elixir
(1.16.2)
結果
AC  
実行時間 1,608 ms / 2,000 ms
コード長 567 bytes
コンパイル時間 4,115 ms
コンパイル使用メモリ 61,388 KB
実行使用メモリ 105,040 KB
最終ジャッジ日時 2024-11-08 02:54:37
合計ジャッジ時間 22,541 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 573 ms
53,720 KB
testcase_01 AC 537 ms
53,844 KB
testcase_02 AC 535 ms
53,632 KB
testcase_03 AC 557 ms
53,660 KB
testcase_04 AC 534 ms
53,940 KB
testcase_05 AC 574 ms
54,056 KB
testcase_06 AC 549 ms
54,064 KB
testcase_07 AC 560 ms
53,896 KB
testcase_08 AC 532 ms
53,844 KB
testcase_09 AC 534 ms
53,544 KB
testcase_10 AC 561 ms
53,540 KB
testcase_11 AC 536 ms
53,684 KB
testcase_12 AC 569 ms
53,804 KB
testcase_13 AC 544 ms
53,888 KB
testcase_14 AC 582 ms
53,680 KB
testcase_15 AC 564 ms
55,124 KB
testcase_16 AC 686 ms
59,944 KB
testcase_17 AC 765 ms
66,148 KB
testcase_18 AC 564 ms
53,424 KB
testcase_19 AC 873 ms
70,496 KB
testcase_20 AC 686 ms
72,028 KB
testcase_21 AC 537 ms
53,776 KB
testcase_22 AC 567 ms
53,820 KB
testcase_23 AC 1,608 ms
93,052 KB
testcase_24 AC 1,600 ms
105,040 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 main do
    #_n = ii()
    #p = li()
    s = IO.binread(:eof) |> String.trim |> String.split("\n")
    p = hd(tl(s)) |> String.split |> Enum.map(&String.to_integer/1)

    if Enum.member?(p, 0) do
      0
    else
      for x <- p, reduce: 1 do
        acc -> rem(acc * rem(x, 9), 9)
      end
      |> then(fn x -> if x == 0, do: 9, else: x end)
    end
    |> IO.puts
  end
end
0