■
[perl]
指定日から一ヶ月後までに指定した曜日が何個あるか求める
一ヶ月だとどの曜日も4回は必ずあるよね。29日以上ある月の場合に余った日の中に指定した曜日があれば ++ する。もっとスマートにかけるような気もする。そしてあってるのかどうかわからないw
use strict;
use warnings;
use utf8;
use Test::More qw/no_plan/;
use DateTime;
is count_wdays(7, 2009, 10, 10), 5;
is count_w...