結果
問題 | No.843 Triple Primes |
ユーザー |
|
提出日時 | 2019-06-28 21:41:49 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 16 ms / 2,000 ms |
コード長 | 473 bytes |
コンパイル時間 | 415 ms |
コンパイル使用メモリ | 20,848 KB |
実行使用メモリ | 11,280 KB |
最終ジャッジ日時 | 2024-10-09 00:45:13 |
合計ジャッジ時間 | 2,609 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 42 |
ソースコード
let n = read_int ();; if n = 1 then ( print_endline "0"; exit 0; );; let table = Array.make 500001 true;; let sqtable = Array.make 500020 false;; for i = 2 to 500000 do if table.(i) then ( if i <= n && i * i <= 500020 then sqtable.(i*i) <- true; for j = 2 to 500000/i do table.(i*j) <- false done ) done;; let ans = ref 1;; for i = 3 to n do if table.(i) && sqtable.(i+2) then ( ans := !ans + 2; ); done;; Printf.printf "%d\n" !ans;;