Day of the week: Difference between revisions

Content added Content deleted

Inline

@@ Line 616: / Line 616: @@
 <lang basic>100 REM FIND OUT WHAT YEARS HAVE CHRISTMAS ON A SUNDAY
-REM MODULO FUNCTION (USES CALLER'S Y AS DIVIDEND)
+REM MODULO FUNCTION (USES CALLER'S N AS DIVIDEND)
-DEF FNYM(D) = Y - D * INT(Y/D)
+DEF FNNM(D) = N - D * INT(N/D)
+REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7 TO GET DAY OF WEEK)
-REM TRUE IF Y IS DIVISIBLE BY D
-DEF FNYD(D) = 0 = FNYM(D)
+DEF FNRD(Y) = 365 * Y + INT(Y/4) - INT(Y/100) + INT(Y/400)
-REM RATA DIE OF 31 DEC Y (CAN BE TAKEN MODULO 7 TO GET DAY OF WEEK)
-DEF FNRD(Y) = 365 * Y + INT(Y/4) - INT(Y/100) + INT(Y/400)
 REM TRUE IF THE GIVEN RD IS A SUNDAY
-DEF FND7(Y) = FNYD(7)
+DEF FND7(N) = 0 = FNNM(7)
 REM TRUE IF CHRISTMAS FALLS ON A SUNDAY IN THE GIVEN YEAR
 DEF FNXS(Y) = FND7(FNRD(Y) - 6):REM 6 DAYS BEFORE THE END OF THE YEAR
@@ Line 632: / Line 630: @@
 : IF FNXS(Y) THEN PRINT Y,:REM PRINT YEARS IN COLUMNS
 NEXT Y
-PRINT
+PRINT</lang>
-</lang>
 {{Out}}