結果

問題 No.188 HAPPY DAY
ユーザー simple-acsimple-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
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 19 ms
7,808 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
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";
0