RosettaCodeData/Task/Leap-year/XPL0/leap-year.xpl0
2023-07-01 13:44:08 -04: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;
];