結果
問題 |
No.311 z in FizzBuzzString
|
ユーザー |
![]() |
提出日時 | 2017-04-05 19:40:54 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
RE
|
実行時間 | - |
コード長 | 277 bytes |
コンパイル時間 | 116 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 16,512 KB |
最終ジャッジ日時 | 2024-09-24 21:56:21 |
合計ジャッジ時間 | 815 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | RE * 11 |
ソースコード
(define n (read)) (print (let loop ((ans 0) (i 3)) (cond ((> i num) ans) ((zero? (modulo i 15)) (loop (+ ans 4) (+ i 1))) ((or (zero? (modulo i 3)) (zero? (modulo i 5))) (loop (+ ans 2) (+ i 1))) (else (loop ans (+ i 1))))))