結果
問題 | No.188 HAPPY DAY |
ユーザー | Yuzu Mashiro |
提出日時 | 2021-04-03 16:20:59 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 16 ms / 1,000 ms |
コード長 | 435 bytes |
コンパイル時間 | 71 ms |
コンパイル使用メモリ | 5,296 KB |
実行使用メモリ | 11,896 KB |
最終ジャッジ日時 | 2023-08-26 07:04:01 |
合計ジャッジ時間 | 1,021 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge15 |
(要ログイン)
ソースコード
(print (length (filter boolean (map (lambda (day) (let* ((ds (map digit->integer (string->list (number->string day)))) (dsum (apply + ds))) (cond ((> dsum 12) #f) ((equal? ds '(3 1)) #f) (else #t)))) (iota 31 1)))))