結果
問題 |
No.311 z in FizzBuzzString
|
ユーザー |
![]() |
提出日時 | 2016-04-29 11:02:03 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
TLE
|
実行時間 | - |
コード長 | 318 bytes |
コンパイル時間 | 36 ms |
コンパイル使用メモリ | 6,812 KB |
実行使用メモリ | 22,944 KB |
最終ジャッジ日時 | 2024-09-24 21:39:27 |
合計ジャッジ時間 | 3,380 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 7 TLE * 1 -- * 3 |
ソースコード
(let ((n (read)) (z 0)) (let loop((foo 3)) (if (> foo n) (begin (display z) (newline)) (begin (when (= (modulo foo 3) 0) (set! z (+ z 2))) (when (= (modulo foo 5) 0) (set! z (+ z 2))) (loop (+ foo 1)) ) ) ) )