RosettaCodeData/Task/Leap-year/XPL0/leap-year.xpl0
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
131 B
Text

func LeapYear(Y); \Return 'true' if Y is a leap year
int Y;
[if rem(Y/100)=0 then return rem(Y/400)=0;
return rem(Y/4)=0;
];