結果
問題 | No.188 HAPPY DAY |
ユーザー | go_boardwalk |
提出日時 | 2017-03-31 00:08:33 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 26 ms / 1,000 ms |
コード長 | 395 bytes |
コンパイル時間 | 106 ms |
コンパイル使用メモリ | 5,372 KB |
実行使用メモリ | 12,796 KB |
最終ジャッジ日時 | 2023-08-29 22:29:42 |
合計ジャッジ時間 | 900 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge14 |
(要ログイン)
ソースコード
(let ((mday '(31 28 31 30 31 30 31 31 30 31 30 31 0))) (let loop ((m 1) (d 1) (lastday (car mday)) (lastdays (cdr mday)) (c 0)) (cond ((zero? lastday) (print c)) ((> d lastday) (loop (+ m 1) 1 (car lastdays) (cdr lastdays) c)) ((= m (+ (div d 10) (mod d 10))) (loop m (+ d 1) lastday lastdays (+ c 1))) (else (loop m (+ d 1) lastday lastdays c)))))