結果
問題 |
No.1396 Giri
|
ユーザー |
![]() |
提出日時 | 2024-08-15 09:25:12 |
言語 | Elixir (1.18.1) |
結果 |
WA
|
実行時間 | - |
コード長 | 644 bytes |
コンパイル時間 | 3,978 ms |
コンパイル使用メモリ | 62,452 KB |
実行使用メモリ | 186,072 KB |
最終ジャッジ日時 | 2024-08-15 09:25:21 |
合計ジャッジ時間 | 6,749 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 WA * 1 TLE * 1 |
other | -- * 23 |
ソースコード
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 yn(b), do: IO.puts(if b, do: "Yes", else: "No") def sieve(n) do t = :ets.new(:prime, [:set, :protected]) for i <- 2..n do case :ets.lookup(t, i) do [] -> for j <- i+i..n//i do :ets.insert(t, {j}) end _ -> nil end end for i <- 2..n, :ets.lookup(t, i) == [], into: [] do i end end def main do n = ii() primes = sieve(n) IO.puts length(primes) end end