RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-1.zkl
2017-09-25 22:28:19 +02: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))
}