8 lines
210 B
Text
8 lines
210 B
Text
|
var [const] D=Time.Date, r=L();
|
||
|
|
foreach y in ([1900..2100]){ yes:=True;
|
||
|
|
foreach m in ([1..12]){
|
||
|
|
if (D.daysInMonth(y,m)==31 and 5==D.weekDay(y,m,1)) { yes=False; break; }
|
||
|
|
}
|
||
|
|
if (yes) r.append(y)
|
||
|
|
}
|