($m,$d,$k)=glob<>; for(0..6){ \$a{$_|0}for$m/10,$m%10,$d/10,$d%10; if(++$d>($m==2?28:2640&1<<$m?30:31)){ $d=1; $m=$m%12+1; } } print%a<$k?No:Yes;