結果

問題 No.188 HAPPY DAY
ユーザー simple-ac
提出日時 2021-06-05 14:49:54
言語 Perl
(5.40.0)
結果
AC  
実行時間 18 ms / 1,000 ms
コード長 585 bytes
コンパイル時間 1,206 ms
コンパイル使用メモリ 7,680 KB
実行使用メモリ 7,680 KB
最終ジャッジ日時 2024-11-21 12:35:27
合計ジャッジ時間 973 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 1
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

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";
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0