結果

問題 No.843 Triple Primes
ユーザー kokatsu
提出日時 2021-12-01 22:51:14
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 12 ms / 2,000 ms
コード長 698 bytes
コンパイル時間 2,448 ms
コンパイル使用メモリ 208,284 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-22 13:32:32
合計ジャッジ時間 3,913 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 42
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std;

void main() {
    int N;
    readf("%d\n", N);

    int S = N.to!real.sqrt.floor.to!int;
    auto sieve = iota(0, N+1).map!(i => i == 2 || (i > 2 && i % 2 == 1)).array;
    foreach (i; iota(3, S+1, 2)) {
        if (!sieve[i]) {
            continue;
        }

        foreach (j; iota(i*i, N+1, i)) {
            sieve[j] = false;
        }
    }

    auto primes = iota(0, N+1).filter!(i => sieve[i]).array;

    int res;
    foreach (r; primes) {
        if (r > S + 1) {
            break;
        }

        int q = r * r - 2;
        if (q <= N && sieve[q]) {
            ++res;

            if (q != 2) {
                ++res;
            }
        }
    }

    res.writeln;
}
0