RosettaCodeData/Task/Five-weekends/Zkl/five-weekends-1.zkl

5 lines
154 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
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))
}