RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-4.zkl
2023-07-01 13:44:08 -04: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}]]