結果
問題 | No.188 HAPPY DAY |
ユーザー | simple-ac |
提出日時 | 2021-06-05 14:40:48 |
言語 | Perl (5.38.2) |
結果 |
WA
|
実行時間 | - |
コード長 | 582 bytes |
コンパイル時間 | 933 ms |
コンパイル使用メモリ | 7,808 KB |
実行使用メモリ | 7,808 KB |
最終ジャッジ日時 | 2024-05-01 09:10:02 |
合計ジャッジ時間 | 1,105 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
コンパイルメッセージ
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 == $day){ $count += 1; } } } print "$count\n";