RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-4.zkl
2017-09-25 22:28:19 +02:00

5 lines
185 B
Text

var yes, r=[[(y,m);
[1900..2100];
[1..12],{if(m==1)yes=True; if(D.daysInMonth(y,m)==31 and 5==D.weekDay(y,m,1)) yes=False; True},
{if (m==12) yes else False};
{y}]]