RosettaCodeData/Task/Leap-year/AppleScript/leap-year.applescript

on leap_year(y)
    return year mod 4 is equal to 0 and (year mod 100 is not equal to 0 or year mod 400 is equal to 0)
end leap_year

leap_year(1900)
A-M baby 2013-04-10 21:29:02 -07:00			`on leap_year(y)`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`return year mod 4 is equal to 0 and (year mod 100 is not equal to 0 or year mod 400 is equal to 0)`
A-M baby 2013-04-10 21:29:02 -07:00			`end leap_year`

			`leap_year(1900)`