Most years have 52 weeks, some have 53, according to ISO8601.



Task

Write a function which determines if a given year is long (53 weeks) or not, and demonstrate it.




Long_year(y) {
	A := Mod(y + floor(y/4) - floor(y/100) + floor(y/400), 7)
	y--, B := Mod(y + floor(y/4) - floor(y/100) + floor(y/400), 7)
	return A=4 || B=3
}