結果
問題 | No.188 HAPPY DAY |
ユーザー | Rin |
提出日時 | 2015-08-23 19:11:49 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 19 ms / 1,000 ms |
コード長 | 620 bytes |
コンパイル時間 | 55 ms |
コンパイル使用メモリ | 5,300 KB |
実行使用メモリ | 11,680 KB |
最終ジャッジ日時 | 2023-08-29 02:54:07 |
合計ジャッジ時間 | 925 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge12 |
(要ログイン)
ソースコード
(define Days(list 0 31 28 31 30 31 30 31 31 30 31 30)) (let ( (Month 1) (Day 1) (HDcnt 0) ) (let loop() (if (and (= Month 11) (= Day 30)) (display HDcnt) (begin (when (= Day (list-ref Days Month)) (begin (set! Month (+ Month 1)) (set! Day 1))) (when (= Month (+ (floor (/ Day 10)) (modulo Day 10))) (set! HDcnt (+ HDcnt 1))) (set! Day (+ Day 1)) (loop) ) ) ) )