Perl6でプレミアムフライデーを求める - Qiita

Perl6でプレミアムフライデーを求める - Qiita

世の中では月の最終金曜日をプレミアムフライデーと呼ぶそうですね(目をそらしながら) Perl6 でそのプレ...概要を表示 世の中では月の最終金曜日をプレミアムフライデーと呼ぶそうですね(目をそらしながら) Perl6 でそのプレミアムフライデーを求めてみたいと思います。 ソース Perl6 の Date や DateTime には最終◯曜日を求めるメソッドは無かった筈なので一手間必要です。 # 金曜日は5 my Int $friday := 5; # 2017年02月からスタート my DateTime $d .= new( :2017year :2month :1day :15hour :0minute :0second ); # 100ヶ月分のプレミアムフライデー for 0..^100 -> $later { # 翌月初の1日前、つまり当月末日 my DateTime $e = $d.clone.later(month => $later + 1).earlier(day => 1); # 当月末日の曜