結果
問題 | No.188 HAPPY DAY |
ユーザー | go_boardwalk |
提出日時 | 2017-03-31 00:32:51 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 24 ms / 1,000 ms |
コード長 | 398 bytes |
コンパイル時間 | 123 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 12,640 KB |
最終ジャッジ日時 | 2023-08-29 22:29:50 |
合計ジャッジ時間 | 600 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge14 |
ソースコード
(let ((mday '(31 28 31 30 31 30 31 31 30 31 30 31 0))) (let loop ((m 1) (d 1) (lday (car mday)) (ldays (cdr mday)) (c 0)) (cond ((zero? lday) (print c)) ((> d lday) (loop (+ m 1) 1 (car ldays) (cdr ldays) c)) ((= m (+ (div d 10) (mod d 10))) (loop m (+ d 1) lday ldays (+ c 1))) (else (loop m (+ d 1) lday ldays c)))))