Find the last Sunday of each month: Difference between revisions
Find the last Sunday of each month (view source)
Revision as of 16:08, 25 February 2022
, 2 years ago→{{header|ALGOL-M}}
(Added solution for Action!) |
|||
Line 354:
END;
% RETURN TRUE (1) IF Y IS A LEAP YEAR, OTHERWISE FALSE (0) %
INTEGER FUNCTION ISLEAPYR(Y);
INTEGER Y;
BEGIN
IF MOD(Y,4) <> 0 THEN % QUICK EXIT IN MOST COMMON CASE %
ISLEAPYR := 0
ELSE IF MOD(Y,400) = 0 THEN
Line 364:
ELSE IF MOD(Y,100) = 0 THEN
ISLEAPYR := 0
ELSE % NON-CENTURY AND DIVISIBLE BY 4 %
ISLEAPYR := 1;
END;
| |||