結果
問題 |
No.311 z in FizzBuzzString
|
ユーザー |
![]() |
提出日時 | 2017-04-05 18:17:30 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
MLE
|
実行時間 | - |
コード長 | 242 bytes |
コンパイル時間 | 35 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 578,244 KB |
最終ジャッジ日時 | 2024-09-24 21:56:20 |
合計ジャッジ時間 | 3,203 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 7 MLE * 1 -- * 3 |
ソースコード
(define n (read)) (print (fold + 0 (map (lambda (x) (cond ((and (= (modulo x 3) 0) (= (modulo x 5) 0)) 4) ((or (= (modulo x 3) 0) (= (modulo x 5) 0)) 2) (else 0))) (iota n 1))))