結果
問題 | No.9002 FizzBuzz(テスト用) |
ユーザー |
|
提出日時 | 2024-09-12 18:21:27 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
WA
|
実行時間 | - |
コード長 | 645 bytes |
コンパイル時間 | 310 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 28,544 KB |
最終ジャッジ日時 | 2024-09-12 18:21:29 |
合計ジャッジ時間 | 1,212 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | WA * 4 |
ソースコード
(import (scheme base) (scheme read) (scheme write) ) (define yuki9002 (let* ( (n (read)) ) (do ( (i 1 (+ i 1)) ) ((> i n) (display "\0")) (let ( (i-mod-3 (modulo i 3)) (i-mod-5 (modulo i 5)) ) (cond ((and (zero? i-mod-3) (zero? i-mod-5)) (display "FizzBuzz\n") ) ((zero? i-mod-3) (display "Fizz\n") ) ((zero? i-mod-5) (display "Buzz\n") ) (else (write i) (display "\n") ) ) ) ) ) )