結果

問題 No.36 素数が嫌い！
ユーザー RinRin
提出日時 2015-08-27 18:43:54
言語 Scheme
(Gauche-0.9.14)
結果
WA  
実行時間 -
コード長 467 bytes
コンパイル時間 113 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 27,808 KB
最終ジャッジ日時 2024-07-18 15:01:11
合計ジャッジ時間 6,914 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 20 ms
15,872 KB
testcase_01 AC 20 ms
15,744 KB
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 TLE -
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 -- -
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define (System.out.println x)
  (begin
    (display x)
    (newline)
  )
)

(let (
      (Value (read))
     )
  (cond
    ((= (modulo Value 2) 0) (System.out.println "YES"))
    ((= Value 1) (System.out.println "NO"))
    (else
     (let loop((i 3))
       (if (= (modulo Value i) 0)
           (System.out.println "YES")
           (if (< (/ Value 2) i)
               (System.out.println "NO")
               (loop (+ i 2))
           )
       )
     )
   )
  )
)
0