結果
問題 | No.188 HAPPY DAY |
ユーザー | sironekotoro |
提出日時 | 2018-11-15 17:12:39 |
言語 | Perl (5.38.2) |
結果 |
WA
|
実行時間 | - |
コード長 | 572 bytes |
コンパイル時間 | 620 ms |
コンパイル使用メモリ | 7,936 KB |
実行使用メモリ | 7,936 KB |
最終ジャッジ日時 | 2024-06-06 20:11:11 |
合計ジャッジ時間 | 1,077 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use Time::Piece; use Time::Seconds; my $t = Time::Piece->strptime( '2015-01-01', '%Y-%m-%d' ); my @calendar = (); my $count = 0; # 2015年のカレンダー作成 while (1) { push @calendar, $t->strftime('%m%d'); last if ( $t->ymd eq '2018-12-31' ); $t = $t + ONE_DAY; } for my $date (@calendar){ my $month = substr($date,0,2); my $date_ten = substr($date,2,1); my $date_one = substr($date,3,1); if ($month == ($date_ten + $date_one) ){ # print $date , "\n"; $count++; } } print $count , "\n"