Day of the week: Difference between revisions
Content added Content deleted
Line 700: | Line 700: | ||
REM or by using w%=(y$(1TO 2)&"16"DIV 16+ count DIV 4+ count)MOD 7 as |
REM or by using w%=(y$(1TO 2)&"16"DIV 16+ count DIV 4+ count)MOD 7 as |
||
REM further optimisation beyond skipping irrelevant years below |
REM further optimisation beyond skipping irrelevant years below |
||
IF w%=0 THEN PRINT count : count = count+ 4 |
IF w%=0 THEN PRINT count : count = count+ 4 |
||
END FOR count |
END FOR count |
||
END DEFine |
END DEFine |
||
{{keypress|ctrl|space}} |
{{keypress|ctrl|space}} |
||
</lang> |
</lang> |