結果
| 問題 | No.188 HAPPY DAY |
| ユーザー |
 shiCanoko_o
|
| 提出日時 | 2019-05-15 18:33:19 |
| 言語 | Perl (5.40.0) |
| 結果 |
AC
|
| 実行時間 | 4 ms / 1,000 ms |
| コード長 | 19,126 bytes |
| コンパイル時間 | 283 ms |
| コンパイル使用メモリ | 6,812 KB |
| 実行使用メモリ | 6,812 KB |
| 最終ジャッジ日時 | 2024-09-14 06:54:35 |
| 合計ジャッジ時間 | 656 ms |
|
ジャッジサーバーID （参考情報） |
judge5 / judge3 |
（要ログイン）
| ファイルパターン | 結果 |
|---|---|
| other | AC * 1 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my @month = (1..12);my @days_1 = (1..31);#1月、3月、5月、7月、8月、10月、12月my @days_2 = (1..30);#4月、6月、9月、11月my @days_3 = (1..28);#2月my $day_10_r; #10の位#1月my $count1 = 0;my $count2 = 0;my $count3 = 0;#2月my $count4 = 0;my $count5 = 0;my $count6 = 0;#3月my $count7 = 0;my $count8 = 0;my $count9 = 0;#4月my $count10 = 0;my $count11 = 0;my $count12 = 0;#5月my $count13 = 0;my $count14 = 0;my $count15 = 0;#6月my $count16 = 0;my $count17 = 0;my $count18 = 0;#7月my $count19 = 0;my $count20 = 0;my $count21 = 0;#8月my $count22 = 0;my $count23 = 0;my $count24 = 0;#9月my $count25 = 0;my $count26 = 0;my $count27 = 0;#10月my $count28 = 0;my $count29 = 0;my $count30 = 0;#11月my $count31 = 0;my $count32 = 0;my $count33 = 0;#12月my $count34 = 0;my $count35 = 0;my $count36 = 0;#ーーーーーーーーーーーーーーーーーーーー1月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[0]){$count1++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[0]){$count2++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[0]){$count3++;}}}#ーーーーーーーーーーーーーーーーーーーー2月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_3){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[1]){$count4++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[1]){$count5++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[1]){$count6++;}}}#ーーーーーーーーーーーーーーーーーーーー3月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[2]){$count7++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[2]){$count8++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[2]){$count9++;}}}#ーーーーーーーーーーーーーーーーーーーー4月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_2){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[3]){$count10++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[3]){$count11++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[3]){$count12++;}}}#ーーーーーーーーーーーーーーーーーーーー5月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[4]){$count13++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[4]){$count14++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[4]){$count15++;}}}#ーーーーーーーーーーーーーーーーーーーー6月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_2){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[5]){$count16++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[5]){$count17++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[5]){$count18++;}}}#ーーーーーーーーーーーーーーーーーーーー7月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[6]){$count19++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[6]){$count20++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[6]){$count21++;}}}#ーーーーーーーーーーーーーーーーーーーー8月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[7]){$count22++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[7]){$count23++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[7]){$count24++;}}}my $total_count8 = $count1 + $count2 + $count3;#ーーーーーーーーーーーーーーーーーーーー9月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_2){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[8]){$count25++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[8]){$count26++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[8]){$count27++;}}}my $total_count9 = $count1 + $count2 + $count3;#ーーーーーーーーーーーーーーーーーーーー10月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[9]){$count28++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[9]){$count29++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[9]){$count30++;}}}my $total_count10 = $count1 + $count2 + $count3;#ーーーーーーーーーーーーーーーーーーーー11月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_2){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[10]){$count31++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[10]){$count32++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[10]){$count33++;}}}my $total_count11 = $count1 + $count2 + $count3;#ーーーーーーーーーーーーーーーーーーーー12月ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーfor my $day(@days_1){if($day>9){#ーーーーーーーーー10の位を求めるーーーーーーーーーーーーーーーーーーーーーーーーーmy $day_10 = $day/10;#ーーーーーーーーー10で割ると少数かつ切り上げられるものとそうでないものーーーーif($day_10<int($day_10)){$day_10_r = $day_10 - 1;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[11]){$count34++;}}else{$day_10_r = int($day_10);#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[11]){$count35++;}}#ーーーーーーーーー10の位がないーーーーーーーーーーーーーーーーーーーーーーーーーー}else{$day_10_r = 0;#ーーーーーーーーー一致回数を求めるーーーーーーーーーーーーーーーーーーーーーーif($day_10_r + $day - $day_10_r * 10 == $month[11]){$count36++;}}}my $total_count = $count1 + $count2 + $count3 + $count4 + $count5 + $count6 + $count7 + $count8 + $count9 + $count10 + $count11 + $count12 + $count13+ $count14 + $count15 + $count16 + $count17 + $count18 + $count19 + $count20 + $count21 + $count22 + $count23 + $count24 + $count25 + $count26 +$count27 + $count28 + $count29 + $count30 + $count31 + $count32 + $count33 + $count34 + $count35 + $count36 ;print "$total_count\n";