結果
問題 | No.188 HAPPY DAY |
ユーザー | simple-ac |
提出日時 | 2021-06-05 14:49:54 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 19 ms / 1,000 ms |
コード長 | 585 bytes |
コンパイル時間 | 1,193 ms |
コンパイル使用メモリ | 7,680 KB |
実行使用メモリ | 7,808 KB |
最終ジャッジ日時 | 2024-05-01 09:17:59 |
合計ジャッジ時間 | 1,334 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use utf8; use POSIX; my $count = 0; for (my $month = 1; $month <= 12; $month++) { # 日数決め my $max_days; if( $month == 2){ $max_days = 28; } elsif (($month == 4) or ($month == 6) or ($month == 9) or ($month == 11) ) { $max_days = 30; } else { $max_days = 31; } # カウント処理 for (my $day = 1; $day <= $max_days; $day++) { my $ones_place = $day%10; my $tens_place = floor ($day/10); # floorで小数部切り捨て my $sum = $ones_place + $tens_place; if ($sum == $month) { $count += 1; } } } print "$count\n";