Anonymous user
Leap year: Difference between revisions
→{{header|BBC BASIC}}
Line 622:
= (yr% MOD 4 = 0) AND ((yr% MOD 400 = 0) OR (yr% MOD 100 <> 0))</lang>
Much quicker without full evaluation:
<lang bbcbasic>DEFFNleap(yr%)
IF yr% MOD 4 THEN =FALSE
|