RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-1.zkl
2023-07-01 13:44:08 -04:00

4 lines
154 B
Text

var [const] D=Time.Date, r=L();
foreach y,m in ([1900..2100],[1..12]){
if (D.daysInMonth(y,m)==31 and 5==D.weekDay(y,m,1)) r.append(String(y,"-",m))
}