結果
| 問題 | No.36 素数が嫌い！ |
| ユーザー |
 esehara
|
| 提出日時 | 2021-06-10 04:22:34 |
| 言語 | OCaml (5.1.0) |
| 結果 |
TLE
|
| 実行時間 | - |
| コード長 | 864 bytes |
| コンパイル時間 | 959 ms |
| コンパイル使用メモリ | 19,692 KB |
| 実行使用メモリ | 22,556 KB |
| 最終ジャッジ日時 | 2024-05-06 21:37:49 |
| 合計ジャッジ時間 | 13,161 ms |
|
ジャッジサーバーID （参考情報） |
judge1 / judge3 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | TLE | - |
| testcase_01 | -- | - |
| testcase_02 | -- | - |
| testcase_03 | -- | - |
| testcase_04 | -- | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
| testcase_16 | -- | - |
| testcase_17 | -- | - |
| testcase_18 | -- | - |
| testcase_19 | -- | - |
| testcase_20 | -- | - |
| testcase_21 | -- | - |
| testcase_22 | -- | - |
| testcase_23 | -- | - |
| testcase_24 | -- | - |
| testcase_25 | -- | - |
| testcase_26 | -- | - |
| testcase_27 | -- | - |
| testcase_28 | -- | - |
| testcase_29 | -- | - |
ソースコード
module FMath = struct
let is_prime n =
if n < 2 then false
else if n = 2 then true
else if ((n mod 2) = 0) then false
else
let sqrt_n = (int_of_float (sqrt (float_of_int n)) + 1) in
let rec rec_is_prime p =
let p2_1 = (p * 2) + 1 in
if (p2_1 > sqrt_n) then true
else if ((n mod p2_1) = 0) then false
else rec_is_prime (p + 1) in
rec_is_prime 1;;
let primes limit =
let rec acc n result =
if (n = limit) then result
else if (is_prime n) then acc (n + 1) (n :: result)
else acc (n + 1) result in
acc 2 [];;
end
let () =
let n = read_int () in
(if n = 1 then "NO"
else if FMath.is_prime n then "NO"
else
if FMath.primes n |> List.map (fun x -> x mod n = 0)
|> List.fold_left (||) false then "NO"
else "YES") |> print_string;
print_newline ();;