Day of the week: Difference between revisions

← Older edit

Day of the week (view source)

Revision as of 13:16, 28 December 2023

13,751 bytes added , 4 months ago

Added MiniScript

PureFox

9,476

edits

Revision as of 17:03, 24 November 2022 (view source) Michael Behrend (talk \| contribs) (Added solution for EDSAC.) ← Older edit		Latest revision as of 13:16, 28 December 2023 (view source) PureFox (talk \| contribs) (Added MiniScript)
(38 intermediate revisions by 17 users not shown)
Line 507: =={{header\|AWK}}== <syntaxhighlight lang="awk"> # syntax: GAWK -f DAY_OF_THE_WEEK.AWK Line 520 ⟶ 519: =={{header\|BASIC}}== ~~<b>Works with:</b> FreeBASIC <br>~~ ~~This program needs the modulo function because there is a bug in the built in modulo function.~~ ~~<syntaxhighlight lang="basic">Declare Function modulo(x As Double, y As Double) As Double~~ ~~Declare Function wd(m As Double, d As Double, y As Double) As Integer~~ ~~Cls~~ ~~Dim yr As Double~~ ~~For yr = 2008 To 2121~~ ~~If wd(12,25,yr) = 1 Then~~ ~~Print "Dec " & 25 & ", " & yr~~ ~~EndIf~~ ~~Next~~ ~~Sleep~~ ~~Function modulo(x As Double, y As Double) As Double~~ ~~If y = 0 Then~~ ~~Return x~~ ~~Else~~ ~~Return x - y * Int(x / y)~~ ~~End If~~ ~~End Function~~ ~~Function wd(m As Double, d As Double, y As Double) As Integer~~ ~~If m = 1 Or m = 2 Then~~ ~~m += 12~~ ~~y-= 1~~ ~~End If~~ ~~Return modulo(365 * y + Fix(y / 4) - Fix(y / 100) + Fix(y / 400) + d + Fix((153 * m + 8) / 5), 7) + 1~~ ~~End Function~~ ~~Dec 25, 2011~~ ~~Dec 25, 2016~~ ~~Dec 25, 2022~~ ~~Dec 25, 2033~~ ~~Dec 25, 2039~~ ~~Dec 25, 2044~~ ~~Dec 25, 2050~~ ~~Dec 25, 2061~~ ~~Dec 25, 2067~~ ~~Dec 25, 2072~~ ~~Dec 25, 2078~~ ~~Dec 25, 2089~~ ~~Dec 25, 2095~~ ~~Dec 25, 2101~~ ~~Dec 25, 2107~~ ~~Dec 25, 2112~~ ~~Dec 25, 2118</syntaxhighlight>~~ ==={{header\|Applesoft BASIC}}=== {{trans\|Commodore BASIC}} Line 578 ⟶ 527: 5 IF NOT FN D7( FN RD(Y) - 6) THEN PRINT Y, 6 NEXT Y</syntaxhighlight> ==={{header\|ASIC}}=== {{trans\|GW-BASIC}} <syntaxhighlight lang="basic"> REM Day of the week Month = 12 Day = 25 FOR Year = 2007 TO 2122 GOSUB CalcDayOfWeek: IF DayOfWeek = 0 THEN PRINT Year; ENDIF NEXT Year PRINT END CalcDayOfWeek: REM Sunday = 0, Saturday = 6 IF Month < 3 THEN Year = Year - 1 Month = Month + 12 ENDIF DayOfWeek = Year YearDiv = Year / 4 DayOfWeek = DayOfWeek + YearDiv YearDiv = Year / 100 DayOfWeek = DayOfWeek - YearDiv YearDiv = Year / 400 DayOfWeek = DayOfWeek + YearDiv DayPlus = 153 * Month DayPlus = DayPlus + 8 DayPlus = DayPlus / 5 DayOfWeek = DayOfWeek + Day DayOfWeek = DayOfWeek + DayPlus DayOfWeek = DayOfWeek MOD 7 RETURN </syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> ==={{header\|Atari BASIC}}=== {{trans\|Commodore BASIC}} Line 633 ⟶ 623: 2112 2118</pre> ==={{header\|BASIC256}}=== <syntaxhighlight lang="freebasic">for yr = 2008 to 2121 if wd(12, 25, yr) = 0 then print "Dec 25 "; yr next end function wd(m, d, y) if m < 3 then # if m = 1 or m = 2 then m += 12 y -= 1 end if return (y + (y \ 4) - (y \ 100) + (y \ 400) + d + ((153 * m + 8) \ 5)) % 7 end function</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|BBC BASIC}}=== {{works with\|BBC BASIC for Windows}} <syntaxhighlight lang="bbcbasic"> INSTALL @lib$+"DATELIB" FOR year% = 2008 TO 2121 IF FN_dow(FN_mjd(25, 12, year%)) = 0 THEN PRINT "Christmas Day is a Sunday in "; year% ENDIF NEXT</syntaxhighlight> ==={{header\|Chipmunk Basic}}=== {{works with\|Chipmunk Basic\|3.6.4}} {{trans\|Applesoft BASIC}} <syntaxhighlight lang="qbasic">10 CLS : REM 10 HOME for Applesoft BASIC 20 DEF fnd7(n) = n - 7 * INT (n / 7) 30 DEF fnrd(y) = 365 * y + INT (y / 4) - INT (y / 100) + INT (y / 400) 40 PRINT "YEARS WITH CHRISTMAS ON A SUNDAY" CHR$(13) 50 FOR y = 2008 TO 2121 60 IF NOT fn d7(fn rd(y)-6) THEN PRINT y, 70 NEXT y</syntaxhighlight> {{out}} <pre>YEARS WITH CHRISTMAS ON A SUNDAY 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> ==={{header\|Commodore BASIC}}=== Line 662 ⟶ 692: 2095 2101 2107 2112 2118</pre> ==={{header\|FBSL}}=== <syntaxhighlight lang="qbasic">#APPTYPE CONSOLE 'In what years between 2008 and 2121 will the 25th of December be a Sunday? dim date as integer, dayname as string for dim year = 2008 to 2121 date = year * 10000 + 1225 dayname = dateconv(date,"dddd") if dayname = "Sunday" then print "Christmas Day is on a Sunday in ", year end if next PAUSE </syntaxhighlight> ==={{header\|FreeBASIC}}=== Line 706 ⟶ 751: Dec 25 2112 Dec 25 2118</pre> <syntaxhighlight lang="basic">Declare Function modulo(x As Double, y As Double) As Double Declare Function wd(m As Double, d As Double, y As Double) As Integer Cls Dim yr As Double For yr = 2008 To 2121 If wd(12,25,yr) = 1 Then Print "Dec " & 25 & ", " & yr EndIf Next Sleep Function modulo(x As Double, y As Double) As Double If y = 0 Then Return x Else Return x - y * Int(x / y) End If End Function Function wd(m As Double, d As Double, y As Double) As Integer If m = 1 Or m = 2 Then m += 12 y-= 1 End If Return modulo(365 * y + Fix(y / 4) - Fix(y / 100) + Fix(y / 400) + d + Fix((153 * m + 8) / 5), 7) + 1 End Function </syntaxhighlight> {{out}} <pre> Dec 25, 2011 Dec 25, 2016 Dec 25, 2022 Dec 25, 2033 Dec 25, 2039 Dec 25, 2044 Dec 25, 2050 Dec 25, 2061 Dec 25, 2067 Dec 25, 2072 Dec 25, 2078 Dec 25, 2089 Dec 25, 2095 Dec 25, 2101 Dec 25, 2107 Dec 25, 2112 Dec 25, 2118 </pre> <syntaxhighlight lang="freebasic">' version 17-06-2015 ' Weekday And DateSerial only works with #Include "vbcompat.bi" Line 741 ⟶ 834: 25-12-2112 25-12-2118</pre> ==={{header\|FutureBasic}}=== <syntaxhighlight lang="futurebasic">window 1 long y CFDateRef dt NSInteger day CFCalendarRef cal DateComponentsRef comps cal = fn CalendarCurrent comps = fn DateComponentsInit DateComponentsSetMonth( comps, 12 ) DateComponentsSetDay( comps, 25 ) for y = 2008 to 2121 DateComponentsSetYear( comps, y ) dt = fn CalendarDateFromComponents( cal, comps ) day = fn CalendarComponentFromDate( cal, NSCalendarUnitWeekday, dt ) if ( day == 1 ) print y end if next HandleEvents</syntaxhighlight> ==={{header\|Gambas}}=== '''[https://gambas-playground.proko.eu/?gist=b9b4e9a871e96ea6f1db467fa23669fe Click this link to run this code]''' <syntaxhighlight lang="gambas">Public Sub Main() Dim siCount As Short For siCount = 2008 To 2121 If WeekDay(Date(siCount, 12, 25)) = 0 Then Print Format(Date(siCount, 12, 25), "dddd dd mmmm yyyy") & " falls on a Sunday" Next End</syntaxhighlight> Output: <pre> Sunday 25 December 2011 falls on a Sunday Sunday 25 December 2016 falls on a Sunday Sunday 25 December 2022 falls on a Sunday Sunday 25 December 2033 falls on a Sunday Sunday 25 December 2039 falls on a Sunday Sunday 25 December 2044 falls on a Sunday Sunday 25 December 2050 falls on a Sunday Sunday 25 December 2061 falls on a Sunday Sunday 25 December 2067 falls on a Sunday Sunday 25 December 2072 falls on a Sunday Sunday 25 December 2078 falls on a Sunday Sunday 25 December 2089 falls on a Sunday Sunday 25 December 2095 falls on a Sunday Sunday 25 December 2101 falls on a Sunday Sunday 25 December 2107 falls on a Sunday Sunday 25 December 2112 falls on a Sunday Sunday 25 December 2118 falls on a Sunday </pre> ==={{header\|GW-BASIC}}=== {{works with\|BASICA}} ~~<syntaxhighlight lang="gwbasic">10 M = 12~~ <syntaxhighlight lang="gwbasic">10 REM Day of the week ~~20 D = 25~~ 20 DEFINT D, M, Y-Z ~~30 FOR Y = 2007 TO 2122~~ 30 M = 12: D = 25 ~~40 GOSUB 100~~ 5040 IFFOR ZY = 02007 ~~THEN~~TO ~~PRINT Y~~2122 50 GOSUB 200 ~~60 NEXT Y~~ 60 IF Z = 0 THEN PRINT Y; ~~70 END~~ 70 NEXT Y ~~100 REM CALCULATE DAY OF WEEK Z GIVEN~~ 80 PRINT ~~110 REM YEAR Y, MONTH M AND DAY D~~ 90 END ~~120 REM SUNDAY = 0, SATURDAY = 6~~ 170 REM Calculate day of week Z given ~~130 IF M < 3 THEN Y = Y - 1 : M = M + 12~~ 180 REM year Y, month M, and day D ~~140 Z = Y + INT(Y/4) - INT(Y/100) + INT(Y/400)~~ 190 REM Sunday = 0, Saturday = 6 ~~150 Z = Z + D + INT((153M + 8)/5)~~ 200 IF M < 3 THEN Y = Y - 1: M = M + 12 ~~160 Z = Z MOD 7~~ 210 Z = Y + Y \ 4 - Y \ 100 + Y \ 400 ~~170 RETURN</syntaxhighlight>~~ 220 Z = Z + D + (153 M + 8) \ 5 230 Z = Z MOD 7 240 RETURN</syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> ==={{header\|IS-BASIC}}=== Line 770 ⟶ 927: 180 LET DAYWEEK=W-7INT(W/7) 190 END DEF</syntaxhighlight> ==={{header\|Liberty BASIC}}=== {{works with\|Just BASIC}} <syntaxhighlight lang="lb">count = 0 for year = 2008 to 2121 dateString$="12/25/";year dayNumber=date$(dateString$) if dayNumber mod 7 = 5 then count = count + 1 print dateString$ end if next year print count; " years when Christmas Day falls on a Sunday" end</syntaxhighlight> ==={{header\|Minimal BASIC}}=== {{works with\|IS-BASIC}} ~~<syntaxhighlight lang="gwbasic">~~ <syntaxhighlight lang="gwbasic">10 REM Find years with Sunday Christmas 20 LET F = 2008 30 LET T = 2121 Line 786 ⟶ 957: 120 NEXT Y 130 PRINT 140 END</syntaxhighlight> ==={{header\|MSX Basic}}=== {{works with\|Chipmunk Basic}} {{works with\|QBasic}} {{works with\|Quite BASIC}} <syntaxhighlight lang="qbasic">10 REM Find years with Sunday Christmas 11 CLS 20 LET F = 2008 30 LET T = 2121 40 PRINT "Sunday Christmases"; F; "-"; T 50 PRINT 60 FOR Y = F TO T 70 LET E = Y 365 + INT(Y/4) - INT(Y/100) + INT(Y/400) 80 LET X = E - 6 90 LET D = X - 7 * INT(X/7) 100 IF D <> 0 THEN 120 110 PRINT Y; " "; 120 NEXT Y 130 PRINT 140 END</syntaxhighlight> ==={{header\|Palo Alto Tiny BASIC}}=== {{trans\|GW-BASIC}} <syntaxhighlight lang="basic">10 REM DAY OF THE WEEK 20 LET M=12,D=25 30 FOR Y=2007 TO 2122 40 GOSUB 200 50 IF Z=0 PRINT Y," ", 60 NEXT Y 70 PRINT 80 STOP 170 REM CALCULATE DAY OF WEEK Z GIVEN 180 REM YEAR Y, MONTH M, AND DAY D 190 REM SUNDAY = 0, SATURDAY = 6 200 IF M<3 LET Y=Y-1,M=M+12 210 LET Z=Y+Y/4-Y/100+Y/400 220 LET Z=Z+D+(153M+8)/5 230 LET Z=Z-(Z/7)7 240 RETURN</syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre> ==={{header\|PureBasic}}=== PureBasic's internal Date() is limited between 1970-01-01 00:00:00 and 2038-01-19 03:14:07 <syntaxhighlight lang="purebasic">For i=2008 To 2037 If DayOfWeek(Date(i,12,25,0,0,0))=0 PrintN(Str(i)) EndIf Next</syntaxhighlight> ==={{header\|QBasic}}=== {{works with\|QBasic\|1.1}} {{works with\|QuickBasic\|4.5}} <syntaxhighlight lang="qbasic">FOR yr = 2008 TO 2121 IF wd(12, 25, yr) = 0 THEN PRINT "Dec 25 "; yr NEXT yr END FUNCTION wd (m, d, y) IF m < 3 THEN LET m = m + 12 LET y = y - 1 END IF wd = ((y + INT(y / 4) - INT(y / 100) + INT(y / 400) + d + INT((153 * m + 8) / 5)) MOD 7) END FUNCTION</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|QL SuperBASIC}}=== <b>Works with:</b> [https://en.wikipedia.org/wiki/Sinclair_QL ''Sinclair QL''] <br> ...having a structured [https://en.wikipedia.org/wiki/SuperBASIC ''BASIC''] with MOD and quite unlike the ZX81's "first-generation" BASIC that's rather like using a calculator (also without an integer type). Even so, it's worth the minor effort to optimise the code for the task at hand, as done below - which if implemented for the ZX81's routine would make it finish in a fraction of a second, even in SLOW mode, as multiplying by 13 with a division by 5 is slower than by 256 alone, as well as that two divisions by multiples of 100 are much slower than one by 16 as at the link. N.B. by relying on strings to have 4-digit years, this routine is not y10k-compliant <syntaxhighlight lang="qbasic"> AUTO 100,10 DEF PROC Iso(S,O) REM passing starting & ending years via integers S & O LOCal y$,m%,d%,i$,n%,w% LET m%=12 : d%=25 REM m% & d% are constants, so avoid recalculating n% (=48) each iteration LET i$=m%256+ 19300 : n%=i$(2 TO 3)+ d% FOR count=S TO O LET y$=count : w%=(y$(1 TO 2)&"32"DIV 16+ count DIV 4+ count+ n%)MOD 7 REM otherwise w%=(y$(1 TO 2)&"16"DIV 16+ count DIV 4+ count)MOD 7 REM = further optimisation beyond skipping irrelevant years: IF w%=0 THEN PRINT count : count = count+ 4 END FOR count END DEF Iso ctrl+space </syntaxhighlight> {{out}} <pre>2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre> ==={{header\|Quite BASIC}}=== The [[#MSX Basic\|MSX Basic]] solution works without any changes. ==={{header\|Run BASIC}}=== <syntaxhighlight lang="runbasic">for year = 2008 to 2121 if val(date$("12-25-";year)) mod 7 = 5 then print "For ";year;"xmas is Sunday" next year</syntaxhighlight><pre> For 2011 xmas is Sunday For 2016 xmas is Sunday For 2022 xmas is Sunday For 2033 xmas is Sunday For 2039 xmas is Sunday For 2044 xmas is Sunday For 2050 xmas is Sunday For 2061 xmas is Sunday For 2067 xmas is Sunday For 2072 xmas is Sunday For 2078 xmas is Sunday For 2089 xmas is Sunday For 2095 xmas is Sunday For 2101 xmas is Sunday For 2107 xmas is Sunday For 2112 xmas is Sunday For 2118 xmas is Sunday </pre> ==={{header\|S-BASIC}}=== <syntaxhighlight lang="basic"> $constant SUNDAY = 0 rem - compute p mod q function mod(p, q = integer) = integer end = p - q (p/q) comment return day of week (Sun = 0, Mon = 1, etc.) for a given Gregorian calendar date using Zeller's congruence end function dayofweek (mo, da, yr = integer) = integer var y, c, z = integer if mo < 3 then begin mo = mo + 10 yr = yr - 1 end else mo = mo - 2 y = mod(yr,100) c = int(yr / 100) z = int((26 * mo - 2) / 10) z = z + da + y + int(y/4) + int(c/4) - 2 * c + 777 z = mod(z,7) end = z rem - main program var year = integer print "Christmas will fall on a Sunday in" for year=2008 to 2121 if dayofweek(12,25,year) = SUNDAY then print year next year end </syntaxhighlight> {{out}} <pre>Christmas will fall on a Sunday in 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre> ==={{header\|Sinclair ZX81 BASIC}}=== Line 824 ⟶ 1,189: 2118</pre> ==={{header\|QLTI-83 ~~SuperBASIC~~BASIC}}=== {{Works with\|TI-84+/SE}} only ~~<b>Works with:</b> [https://en.wikipedia.org/wiki/Sinclair_QL ''Sinclair QL''] <br>~~ <syntaxhighlight lang="ti83b"> ~~...having a structured [https://en.wikipedia.org/wiki/SuperBASIC ''BASIC''] with MOD and quite unlike the ZX81's "first-generation"~~ :For(A,2008,2121 ~~BASIC that's rather like using a calculator (also without an integer type). Even so, it's worth the minor effort to optimise the~~ :If dayofWk(A,12,25)=1 ~~code for the task at hand, as done below - which if implemented for the ZX81's routine would make it finish in a fraction of a~~ :Disp A ~~second, even in SLOW mode, as multiplying by 13 with a division by 5 is slower than by 256 alone, as well as that two divisions by~~ :End ~~multiples of 100 are much slower than one by 16 as at the link. N.B. by relying on strings to have 4-digit years, this routine is not y10k-compliant~~ ~~<syntaxhighlight lang="qbasic">~~ ~~AUTO 100,10~~ ~~DEF PROC Iso(S,O)~~ ~~REM passing starting & ending years via integers S & O~~ ~~LOCal y$,m%,d%,i$,n%,w%~~ ~~LET m%=12 : d%=25~~ ~~REM m% & d% are constants, so avoid recalculating n% (=48) each iteration~~ ~~LET i$=m%256+ 19300 : n%=i$(2 TO 3)+ d%~~ ~~FOR count=S TO O~~ ~~LET y$=count : w%=(y$(1 TO 2)&"32"DIV 16+ count DIV 4+ count+ n%)MOD 7~~ ~~REM otherwise w%=(y$(1 TO 2)&"16"DIV 16+ count DIV 4+ count)MOD 7~~ ~~REM = further optimisation beyond skipping irrelevant years:~~ ~~IF w%=0 THEN PRINT count : count = count+ 4~~ ~~END FOR count~~ ~~END DEF Iso~~ ~~ctrl+space~~ </syntaxhighlight> {{out}} Line 868 ⟶ 1,214: 2107 2112 2118~~</pre>~~ Done</pre> ==={{header\|Tiny BASIC}}=== {{works with\|TinyBasic}} ~~<syntaxhighlight lang="tinybasic">~~ <syntaxhighlight lang="basic">10 REM Day of the week ~~LET Y = 2007~~ 20 LET MY = 122007 30 LET DM = 2512 40 LET D = 25 ~~10 IF Y = 2122 THEN END~~ 50 ~~LET~~IF Y = Y2122 +THEN 1END 60 LET Y = ~~GOSUB~~Y ~~100~~+ 1 70 GOSUB 200 ~~IF Z = 0 THEN PRINT Y~~ 80 IF Z = ~~GOTO~~0 10THEN PRINT Y 90 GOTO 50 ~~100~~170 REM ~~CALCULATE~~Calculate ~~DAY~~day OFof ~~WEEK~~week Z ~~GIVEN~~given 180 REM ~~YEAR~~year Y, ~~MONTH~~month M, ~~AND~~and ~~DAY~~day D 190 REM ~~SUNDAY~~Sunday = 0, ~~SATURDAY~~Saturday = 6 200 IF M < 3 THEN LET Y = Y - 1 210 IF M < 3 THEN LET M = M + 12 220 LET Z = Y + Y / 4 - Y / 100 + Y / 400 230 LET Z = Z + D + (153 M + 8) / 5 240 LET Z = Z - 7 * (Z / 7) 250 RETURN</syntaxhighlight> {{out}} <pre>2011 Line 908 ⟶ 1,255: 2112 2118</pre> ==={{header\|True BASIC}}=== <syntaxhighlight lang="qbasic">FUNCTION wd (m, d, y) IF m < 3 THEN LET m = m + 12 LET y = y - 1 END IF LET wd = REMAINDER ((y + INT(y / 4) - INT(y / 100) + INT(y / 400) + d + INT((153 * m + 8) / 5)), 7) END FUNCTION FOR yr = 2008 TO 2121 IF wd(12, 25, yr) = 0 THEN PRINT "Dec 25 "; yr NEXT yr END</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|VBA}}=== <syntaxhighlight lang="vb">Option Explicit Sub MainDayOfTheWeek() Debug.Print "Xmas will be a Sunday in : " & XmasSunday(2008, 2121) End Sub Private Function XmasSunday(firstYear As Integer, lastYear As Integer) As String Dim i As Integer, temp$ For i = firstYear To lastYear If Weekday(CDate("25/12/" & i)) = vbSunday Then temp = temp & ", " & i Next XmasSunday = Mid(temp, 2) End Function</syntaxhighlight> {{Out}} <pre>Xmas will be a Sunday in : 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118</pre> ==={{header\|VBScript}}=== <syntaxhighlight lang="vb">For year = 2008 To 2121 If Weekday(DateSerial(year, 12, 25)) = 1 Then WScript.Echo year End If Next</syntaxhighlight> {{Out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> ==={{header\|XBasic}}=== {{works with\|Windows XBasic}} <syntaxhighlight lang="xbasic">PROGRAM "progname" VERSION "0.0000" DECLARE FUNCTION Entry () DECLARE FUNCTION wd (m, d, y) FUNCTION Entry () FOR yr = 2008 TO 2121 IF wd(12, 25, yr) = 0 THEN PRINT "Dec 25 "; yr NEXT yr END FUNCTION FUNCTION wd (m, d, y) IF m < 3 THEN m = m + 12 DEC y END IF RETURN ((y + INT(y / 4) - INT(y / 100) + INT(y / 400) + d + INT((153 * m + 8) / 5)) MOD 7) END FUNCTION END PROGRAM</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|Yabasic}}=== {{trans\|FreeBASIC}} <syntaxhighlight lang="yabasic">sub wd(m, d, y) If m < 3 Then // If m = 1 Or m = 2 Then m = m + 12 y = y - 1 End If Return mod((y + int(y / 4) - int(y / 100) + int(y / 400) + d + int((153 * m + 8) / 5)), 7) End sub // ------=< MAIN >=------ For yr = 2008 To 2121 If wd(12, 25, yr) = 0 Then Print "Dec 25 ", yr EndIf Next</syntaxhighlight> ==={{header\|ZX Spectrum Basic}}=== {{trans\|FreeBASIC}} <syntaxhighlight lang="zxbasic">10 CLS 20 FOR y=2008 TO 2121 30 LET year=y: LET m=12: LET d=25: GO SUB 1000 40 IF wd=0 THEN PRINT d;" ";m;" ";y 50 NEXT y 60 STOP 1000 REM week day 1010 IF m=1 OR m=2 THEN LET m=m+12: LET year=year-1 1020 LET wd=FN m(year+INT (year/4)-INT (year/100)+INT (year/400)+d+INT ((153m+8)/5),7) 1030 RETURN 1100 DEF FN m(a,b)=a-INT (a/b)b</syntaxhighlight> =={{header\|Batch File}}== Line 950 ⟶ 1,416: Dec 25, 2118 is a Sunday. Press any key to continue . . .</pre> ~~=={{header\|BBC BASIC}}==~~ ~~{{works with\|BBC BASIC for Windows}}~~ ~~<syntaxhighlight lang="bbcbasic"> INSTALL @lib$+"DATELIB"~~ ~~FOR year% = 2008 TO 2121~~ ~~IF FN_dow(FN_mjd(25, 12, year%)) = 0 THEN~~ ~~PRINT "Christmas Day is a Sunday in "; year%~~ ~~ENDIF~~ ~~NEXT</syntaxhighlight>~~ =={{header\|bc}}== Line 1,188 ⟶ 1,644: =={{header\|C++}}== <syntaxhighlight lang="cpp">#include <~~boost/date_time/gregorian/gregorian.hpp~~chrono> #include <ranges> #include <iostream> int main( ) { std::cout << "Yuletide holidays must be allowed in the following years:\n"; ~~using namespace boost::gregorian ;~~ for (int year : std::views::iota(2008, 2121) \| std::views::filter([](auto year) { ~~std::cout~~ if (std::chrono::weekday{ ~~<< "Yuletide holidays must be allowed in the following years:\n" ;~~ std::chrono::year{year}/std::chrono::December/25} ~~for ( int i = 2008 ; i < 2121 ; i++ ) {~~ == std::chrono::Sunday) { ~~greg_year gy = i ;~~ ~~date~~ d ( ~~gy,~~ ~~Dec~~ , 25 ) return true; if ( ~~d.day_of_week(~~ ) == ~~Sunday~~ ) { } return false; ~~std::cout << i << std::endl ;~~ })) { std::cout << year << '\n'; } } ~~std::cout << "\n" ;~~ ~~return 0 ;~~ }</syntaxhighlight> {{out}} Line 1,231 ⟶ 1,687: Utilizing Java interop <syntaxhighlight lang="clojure">(import '[java.util GregorianCalendar]) ~~(import '(java.util GregorianCalendar))~~ (defn yuletide [start end] (->> (range start (inc end)) ~~(filter #(= (. (new GregorianCalendar %~~ (filter #(= GregorianCalendar/SUNDAY ~~(. GregorianCalendar DECEMBER) 25) get (. GregorianCalendar DAY_OF_WEEK))~~ (.get (GregorianCalendar. % GregorianCalendar/DECEMBER 25) ~~(. GregorianCalendar SUNDAY)) (range start (inc end))))~~ GregorianCalendar/DAY_OF_WEEK))))) (println (yuletide 2008 2121)) </syntaxhighlight> {{out}} <pre>(2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118)</pre> Line 1,664 ⟶ 2,122: 2112 2118</pre> =={{header\|EasyLang}}== <syntaxhighlight lang="easylang"> func dayOfTheWeek year month day . # Based on Conway's doomsday algorithm # 1. Calculate the doomsday for the century century = floor (year / 100) if century mod 4 = 0 centuryDoomsday = 2 elif century mod 4 = 1 centuryDoomsday = 0 elif century mod 4 = 2 centuryDoomsday = 5 elif century mod 4 = 3 centuryDoomsday = 3 . # 2. Find the doomsday of the year mainYear = year mod 100 yearDoomsday = (floor (mainYear / 12) + mainYear mod 12 + floor (mainYear mod 12 / 4) + centuryDoomsday) mod 7 # 3. Check if the year is leap if mainYear = 0 if century mod 4 = 0 leap = 1 else leap = 0 . else if mainYear mod 4 = 0 leap = 1 else leap = 0 . . # 4. Calculate the DOTW of January 1 if leap = 1 januaryOne = (yearDoomsday + 4) mod 7 else januaryOne = (yearDoomsday + 5) mod 7 . # 5. Determine the nth day of the year if month = 1 NthDay = 0 elif month = 2 NthDay = 31 elif month = 3 NthDay = 59 + leap elif month = 4 NthDay = 90 + leap elif month = 5 NthDay = 120 + leap elif month = 6 NthDay = 151 + leap elif month = 7 NthDay = 181 + leap elif month = 8 NthDay = 212 + leap elif month = 9 NthDay = 243 + leap elif month = 10 NthDay = 273 + leap elif month = 11 NthDay = 304 + leap elif month = 12 NthDay = 334 + leap . NthDay += day # 6. Finally, calculate the day of the week return (januaryOne + NthDay - 1) mod 7 . for i = 2008 to 2121 if dayOfTheWeek i 12 25 = 0 print "Christmas in " & i & " is on Sunday" . . </syntaxhighlight> {{out}} <pre> Christmas in 2011 is on Sunday Christmas in 2016 is on Sunday Christmas in 2022 is on Sunday Christmas in 2033 is on Sunday Christmas in 2039 is on Sunday Christmas in 2044 is on Sunday Christmas in 2050 is on Sunday Christmas in 2061 is on Sunday Christmas in 2067 is on Sunday Christmas in 2072 is on Sunday Christmas in 2078 is on Sunday Christmas in 2089 is on Sunday Christmas in 2095 is on Sunday Christmas in 2101 is on Sunday Christmas in 2107 is on Sunday Christmas in 2112 is on Sunday Christmas in 2118 is on Sunday </pre> =={{header\|ECL}}== Line 2,030 ⟶ 2,583: <syntaxhighlight lang="factor">USING: calendar math.ranges prettyprint sequences ; 2008 2121 [a,b] [ 12 25 <date> sunday? ] filter .</syntaxhighlight> ~~=={{header\|FBSL}}==~~ ~~<syntaxhighlight lang="qbasic">#APPTYPE CONSOLE~~ ~~'In what years between 2008 and 2121 will the 25th of December be a Sunday?~~ ~~dim date as integer, dayname as string~~ ~~for dim year = 2008 to 2121~~ ~~date = year * 10000 + 1225~~ ~~dayname = dateconv(date,"dddd")~~ ~~if dayname = "Sunday" then~~ ~~print "Christmas Day is on a Sunday in ", year~~ ~~end if~~ ~~next~~ ~~PAUSE~~ ~~</syntaxhighlight>~~ =={{header\|Forth}}== Forth has only TIME&DATE, which does not give day of week. Many public Forth Julian date calculators had year-2100 problems, but this algorithm works well. <syntaxhighlight lang="forth"> Line 2,142 ⟶ 2,679: =={{header\|Fōrmulæ}}== {{FormulaeEntry\|page=https://formulae.org/?script=examples/Day_of_the_week}} Fōrmulæ programs are not textual, visualization/edition of programs is done showing/manipulating structures but not text. Moreover, there can be multiple visual representations of the same program. Even though it is possible to have textual representation —i.e. XML, JSON— they are intended for storage and transfer purposes more than visualization and edition. '''Solution''' Programs in Fōrmulæ are created/edited online in its [https://formulae.org website], However they run on execution servers. By default remote servers are used, but they are limited in memory and processing power, since they are intended for demonstration and casual use. A local server can be downloaded and installed, it has no limitations (it runs in your own computer). Because of that, example programs can be fully visualized and edited, but some of them will not run if they require a moderate or heavy computation/memory resources, and no local server is being used. [[File:Fōrmulæ - Day of the week 01.png]] ~~In '''[https://formulae.org/?example=Day_of_the_week this]''' page you can see the program(s) related to this task and their results.~~ [[File:Fōrmulæ - Day of the week 02.png]] =={{header\|Frink}}== Line 2,172 ⟶ 2,711: 2112 2118 ~~</pre>~~ ~~=={{header\|FutureBasic}}==~~ ~~<syntaxhighlight lang="futurebasic">window 1~~ ~~long y~~ ~~CFDateRef dt~~ ~~NSInteger day~~ ~~CFCalendarRef cal~~ ~~DateComponentsRef comps~~ ~~cal = fn CalendarCurrent~~ ~~comps = fn DateComponentsInit~~ ~~DateComponentsSetMonth( comps, 12 )~~ ~~DateComponentsSetDay( comps, 25 )~~ ~~for y = 2008 to 2121~~ ~~DateComponentsSetYear( comps, y )~~ ~~dt = fn CalendarDateFromComponents( cal, comps )~~ ~~day = fn CalendarComponentFromDate( cal, NSCalendarUnitWeekday, dt )~~ ~~if ( day == 1 )~~ ~~print y~~ ~~end if~~ ~~next~~ ~~HandleEvents</syntaxhighlight>~~ ~~=={{header\|Gambas}}==~~ ~~'''[https://gambas-playground.proko.eu/?gist=b9b4e9a871e96ea6f1db467fa23669fe Click this link to run this code]'''~~ ~~<syntaxhighlight lang="gambas">Public Sub Main()~~ ~~Dim siCount As Short~~ ~~For siCount = 2008 To 2121~~ ~~If WeekDay(Date(siCount, 12, 25)) = 0 Then Print Format(Date(siCount, 12, 25), "dddd dd mmmm yyyy") & " falls on a Sunday"~~ ~~Next~~ ~~End</syntaxhighlight>~~ ~~Output:~~ ~~<pre>~~ ~~Sunday 25 December 2011 falls on a Sunday~~ ~~Sunday 25 December 2016 falls on a Sunday~~ ~~Sunday 25 December 2022 falls on a Sunday~~ ~~Sunday 25 December 2033 falls on a Sunday~~ ~~Sunday 25 December 2039 falls on a Sunday~~ ~~Sunday 25 December 2044 falls on a Sunday~~ ~~Sunday 25 December 2050 falls on a Sunday~~ ~~Sunday 25 December 2061 falls on a Sunday~~ ~~Sunday 25 December 2067 falls on a Sunday~~ ~~Sunday 25 December 2072 falls on a Sunday~~ ~~Sunday 25 December 2078 falls on a Sunday~~ ~~Sunday 25 December 2089 falls on a Sunday~~ ~~Sunday 25 December 2095 falls on a Sunday~~ ~~Sunday 25 December 2101 falls on a Sunday~~ ~~Sunday 25 December 2107 falls on a Sunday~~ ~~Sunday 25 December 2112 falls on a Sunday~~ ~~Sunday 25 December 2118 falls on a Sunday~~ </pre> Line 2,482 ⟶ 2,963: =={{header\|Java}}== <syntaxhighlight lang="java">~~import java.util.Calendar;~~ import static java.util.Calendar.; import java.util.Calendar; import java.util.Date; import java.util.GregorianCalendar; Line 2,488 ⟶ 2,971: public class Yuletide{ public static void main(String[] args) { Calendar calendar; ~~for(int i = 2008;i<=2121;i++){~~ int count = 1; ~~Calendar cal = new GregorianCalendar(i, Calendar.DECEMBER,~~ for (int year = 2008; year <= 2121; year++) { ~~25);~~ calendar = new GregorianCalendar(year, DECEMBER, 25); ~~if(cal.get(Calendar.DAY_OF_WEEK)==Calendar.SUNDAY){~~ if (calendar.get(DAY_OF_WEEK) == SUNDAY) { ~~System.out.println(cal.getTime());~~ if (count != 1) } System.out.print(", "); } System.out.printf("%d", calendar.get(YEAR)); count++; } } } } ~~}</syntaxhighlight>~~ </syntaxhighlight> {{out}} <pre> ~~<pre>Sun Dec 25 00:00:00 CST 2011~~ 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118 ~~Sun Dec 25 00:00:00 CST 2016~~ </pre> ~~Sun Dec 25 00:00:00 CST 2022~~ ~~Sun Dec 25 00:00:00 CST 2033~~ ~~Sun Dec 25 00:00:00 CST 2039~~ ~~Sun Dec 25 00:00:00 CST 2044~~ ~~Sun Dec 25 00:00:00 CST 2050~~ ~~Sun Dec 25 00:00:00 CST 2061~~ ~~Sun Dec 25 00:00:00 CST 2067~~ ~~Sun Dec 25 00:00:00 CST 2072~~ ~~Sun Dec 25 00:00:00 CST 2078~~ ~~Sun Dec 25 00:00:00 CST 2089~~ ~~Sun Dec 25 00:00:00 CST 2095~~ ~~Sun Dec 25 00:00:00 CST 2101~~ ~~Sun Dec 25 00:00:00 CST 2107~~ ~~Sun Dec 25 00:00:00 CST 2112~~ ~~Sun Dec 25 00:00:00 CST 2118</pre>~~ =={{header\|JavaScript}}== Line 2,707 ⟶ 3,181: 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </syntaxhighlight> =={{header\|Koka}}== <syntaxhighlight lang="koka"> import std/time/date import std/time/calendar import std/time/instant import std/time/utc fun main() for(2008, 2121) fn(year) val i = instant(year, 12, 25, cal=cal-gregorian) val dow = (i.days+6)%7 // plus 6 since 2000-01-01 epoch was a Saturday match dow.weekday Sun -> println(year.show) _ -> () </syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> =={{header\|Kotlin}}== Line 2,744 ⟶ 3,255: 2118 </pre> =={{header\|Lambdatalk}}== {{trans\|Javascript}} <syntaxhighlight lang="javascript"> {xmasOnSunday 2008 2121} -> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 {script LAMBDATALK.DICT["xmasOnSunday"] = function() { var args = arguments[0].trim().split(" "), days = []; for (var year = args[0]; year <= args[1]; year++) { var xmas = new Date(year, 11, 25) if ( xmas.getDay() === 0 ) days.push(year) } return days.join("\n") }; } </syntaxhighlight> =={{header\|Lasso}}== Line 2,769 ⟶ 3,322: 12/25/2112 is a Sunday 12/25/2118 is a Sunday</pre> ~~=={{header\|Liberty BASIC}}==~~ ~~<syntaxhighlight lang="lb"> count = 0~~ ~~for year = 2008 to 2121~~ ~~dateString$="12/25/";year~~ ~~dayNumber=date$(dateString$)~~ ~~if dayNumber mod 7 = 5 then~~ ~~count = count + 1~~ ~~print dateString$~~ ~~end if~~ ~~next year~~ ~~print count; " years when Christmas Day falls on a Sunday"~~ ~~end</syntaxhighlight>~~ =={{header\|Lingo}}== Line 3,065 ⟶ 3,602: lambda([y], weekday(y, 12, 25) = 'sunday)); / [2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118] /</syntaxhighlight> =={{header\|MiniScript}}== <syntaxhighlight lang="miniscript">import "dateTime" print "Years between 2008 and 2121 when 25th December falls on Sunday:" years = [] for year in range(2008, 2121) date = year + "-12-25" if dateTime.weekday(date) == 0 then years.push year end for print years.join(", ")</syntaxhighlight> {{out}} <pre>Years between 2008 and 2121 when 25th December falls on Sunday: 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118 </pre> =={{header\|МК-61/52}}== Line 3,931 ⟶ 4,484: "2118" }) </pre> =={{header\|PL/0}}== {{trans\|GW-BASIC}} <syntaxhighlight lang="pascal"> var year, month, day, dayofweek; procedure calcdayofweek; begin if month < 3 then begin year := year - 1; month := month + 12 end; dayofweek := year + year / 4 - year / 100 + year / 400; dayofweek := dayofweek + day + (153 month + 8) / 5; dayofweek := dayofweek - (dayofweek / 7) * 7 end; begin month := 12; day := 25; year := 2007; while year <= 2122 do begin call calcdayofweek; if dayofweek = 0 then ! year; year := year + 1 end end. </syntaxhighlight> {{out}} <pre> 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> Line 4,005 ⟶ 4,607: 2112 2118 </pre> =={{header\|PL/M}}== {{Trans\|ALGOL W}}which is{{Trans\|Fortran}} {{works with\|8080 PL/M Compiler}} ... under CP/M (or an emulator) <syntaxhighlight lang="plm"> 100H: /* FIND YEARS WHERE CHRISTMAS DAY FALLS ON A SUNDAY / / CP/M BDOS SYSTEM CALL AND I/O ROUTINES / BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END; PR$CHAR: PROCEDURE( C ); DECLARE C BYTE; CALL BDOS( 2, C ); END; PR$STRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END; PR$NL: PROCEDURE; CALL PR$CHAR( 0DH ); CALL PR$CHAR( 0AH ); END; PR$NUMBER: PROCEDURE( N ); / PRINTS A NUMBER IN THE MINIMUN FIELD WIDTH / DECLARE N ADDRESS; DECLARE V ADDRESS, N$STR ( 6 )BYTE, W BYTE; V = N; W = LAST( N$STR ); N$STR( W ) = '$'; N$STR( W := W - 1 ) = '0' + ( V MOD 10 ); DO WHILE( ( V := V / 10 ) > 0 ); N$STR( W := W - 1 ) = '0' + ( V MOD 10 ); END; CALL PR$STRING( .N$STR( W ) ); END PR$NUMBER; / TASK / / RETURNS THE DAY OF THE WEEK CORRESPONDING To D/M/Y / DAY$OF$WEEK: PROCEDURE( D, M, Y )BYTE; DECLARE ( D, M, Y ) ADDRESS; DECLARE ( J, K, MM, YY ) ADDRESS; MM = M; YY = Y; IF MM <= 2 THEN DO; MM = MM + 12; YY = YY - 1; END; J = YY / 100; K = YY MOD 100; RETURN ( D + ( ( MM + 1 ) 26 ) / 10 + K + K / 4 + J / 4 + 5 * J ) MOD 7; END DAY$OF$WEEK ; DECLARE ( YEAR, MONTH, DAY, COUNT ) ADDRESS; CALL PR$STRING( .'25TH OF DECEMBER IS A SUNDAY IN$' );CALL PR$NL; COUNT = 0; DO YEAR = 2008 TO 2121; DAY = DAY$OF$WEEK( 25, 12, YEAR ); IF DAY = 1 THEN DO; CALL PR$CHAR( ' ' );CALL PR$NUMBER( YEAR ); IF ( COUNT := COUNT + 1 ) MOD 10= 0 THEN CALL PR$NL; END; END; EOF </syntaxhighlight> {{out}} <pre> 25TH OF DECEMBER IS A SUNDAY IN 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre> Line 4,127 ⟶ 4,791: [2011,2016,2022,2033,2039,2044,2050,2061,2067,2072,2078,2089,2095,2101,2107,2112,2118] true.</pre> ~~=={{header\|PureBasic}}==~~ ~~PureBasic's internal Date() is limited between 1970-01-01 00:00:00 and 2038-01-19 03:14:07~~ ~~<syntaxhighlight lang="purebasic">For i=2008 To 2037~~ ~~If DayOfWeek(Date(i,12,25,0,0,0))=0~~ ~~PrintN(Str(i))~~ ~~EndIf~~ ~~Next</syntaxhighlight>~~ =={{header\|Python}}== Line 4,504 ⟶ 5,160: next </syntaxhighlight> =={{header\|RPL}}== Early RPL versions do not have any date library, so a specific instruction implement Zeller's congruence with a stack-oriented algorithm. {{works with\|HP\|28}} ≪ '''IF''' OVER 2 ≤ '''THEN''' 1 - SWAP 12 + SWAP '''END''' 100 MOD LAST / FLOOR DUP 4 / FLOOR SWAP DUP + - SWAP DUP 4 / FLOOR + + SWAP 1 + 13 * 5 / FLOOR + + 7 MOD 5 + 7 MOD 1 + ≫ '<span style="color:blue">WKDAY</span>' STO In 1990, RPL gained some basic functions for calculating the date, but nothing for directly obtaining the day of the week. {{works with\|HP\|48}} ≪ { "MON" TUE" "WED" "THU" "FRI" "SAT" "SUN" } SWAP 0 TSTR 1 3 SUB POS ≫ '<span style="color:blue">WKDAY</span>' STO <span style="color:grey">@ ( dd.mmyyyy → 1..7 )</span> ≪ { } 2008 2121 '''FOR''' year '''IF''' 25 12 year <span style="color:blue">WKDAY</span> 7 == '''THEN''' year + '''END NEXT''' ≫ EVAL {{out}} <pre> 1: { 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 } </pre> =={{header\|Ruby}}== Line 4,551 ⟶ 5,230: 25 Dec 2112 25 Dec 2118 ~~</pre>~~ ~~(Note: The Time class could not handle dates beyond 2038 prior to Ruby 1.9.2.[https://www.ruby-lang.org/en/news/2010/08/18/ruby-1-9.2-released/])~~ ~~=={{header\|Run BASIC}}==~~ ~~<syntaxhighlight lang="runbasic">for year = 2008 to 2121~~ ~~if val(date$("12-25-";year)) mod 7 = 5 then print "For ";year;"xmas is Sunday"~~ ~~next year</syntaxhighlight><pre>~~ ~~For 2011 xmas is Sunday~~ ~~For 2016 xmas is Sunday~~ ~~For 2022 xmas is Sunday~~ ~~For 2033 xmas is Sunday~~ ~~For 2039 xmas is Sunday~~ ~~For 2044 xmas is Sunday~~ ~~For 2050 xmas is Sunday~~ ~~For 2061 xmas is Sunday~~ ~~For 2067 xmas is Sunday~~ ~~For 2072 xmas is Sunday~~ ~~For 2078 xmas is Sunday~~ ~~For 2089 xmas is Sunday~~ ~~For 2095 xmas is Sunday~~ ~~For 2101 xmas is Sunday~~ ~~For 2107 xmas is Sunday~~ ~~For 2112 xmas is Sunday~~ ~~For 2118 xmas is Sunday~~ </pre> Line 4,591 ⟶ 5,245: <pre>Years = [2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118] </pre> ~~=={{header\|S-BASIC}}==~~ ~~<syntaxhighlight lang="basic">~~ ~~$constant SUNDAY = 0~~ ~~rem - compute p mod q~~ ~~function mod(p, q = integer) = integer~~ ~~end = p - q * (p/q)~~ ~~comment~~ ~~return day of week (Sun = 0, Mon = 1, etc.) for a~~ ~~given Gregorian calendar date using Zeller's congruence~~ ~~end~~ ~~function dayofweek (mo, da, yr = integer) = integer~~ ~~var y, c, z = integer~~ ~~if mo < 3 then~~ ~~begin~~ ~~mo = mo + 10~~ ~~yr = yr - 1~~ ~~end~~ ~~else mo = mo - 2~~ ~~y = mod(yr,100)~~ ~~c = int(yr / 100)~~ ~~z = int((26 * mo - 2) / 10)~~ ~~z = z + da + y + int(y/4) + int(c/4) - 2 * c + 777~~ ~~z = mod(z,7)~~ ~~end = z~~ ~~rem - main program~~ ~~var year = integer~~ ~~print "Christmas will fall on a Sunday in"~~ ~~for year=2008 to 2121~~ ~~if dayofweek(12,25,year) = SUNDAY then~~ ~~print year~~ ~~next year~~ ~~end~~ ~~</syntaxhighlight>~~ ~~{{out}}~~ ~~<pre>Christmas will fall on a Sunday in~~ ~~2011~~ ~~2016~~ ~~2011~~ ~~2033~~ ~~2039~~ ~~2044~~ ~~2050~~ ~~2061~~ ~~2067~~ ~~2072~~ ~~2078~~ ~~2089~~ ~~2095~~ ~~2101~~ ~~2107~~ ~~2112~~ ~~2118</pre>~~ =={{header\|SAS}}== Line 4,862 ⟶ 5,460: 25 Dec 2118 is Sunday </pre> =={{header\|Simula}}== {{trans\|Sinclair ZX81 BASIC}} Line 4,926 ⟶ 5,525: 25-Dec-2118</pre> =={{header\|~~SQL~~SparForte}}== As a structured script. <syntaxhighlight lang="ada">#!/usr/local/bin/spar pragma annotate( summary, "yuletide" ); pragma annotate( description, "A company decides that whenever Xmas falls on a Sunday they will give their" ); pragma annotate( description, "workers all extra paid holidays so that, together with any public holidays," ); pragma annotate( description, "workers will not have to work the following week (between the 25th of" ); pragma annotate( description, "December and the first of January)." ); pragma annotate( description, ""); pragma annotate( description, "In what years between 2008 and 2121 will the 25th of December be a Sunday?" ); pragma annotate( description, ""); pragma annotate( description, "Using any standard date handling libraries of your programming language;" ); pragma annotate( description, "compare the dates calculated with the output of other languages to discover" ); pragma annotate( description, "any anomalies in the handling of dates which may be due to, for example," ); pragma annotate( description, "overflow in types used to represent dates/times similar to y2k type" ); pragma annotate( description, "problems. "); pragma annotate( see_also, "http://rosettacode.org/wiki/Day_of_the_week" ); pragma annotate( author, "Ken O. Burtch "); pragma license( unrestricted ); pragma restriction( no_external_commands ); procedure yuletide is begin for Year in 2008..2121 loop if calendar.day_of_week ( calendar.time_of (Year, 12, 25, 0)) = 1 then put_line( "Christmas " & strings.image( Year ) & " is on a Sunday" ); end if; end loop; end yuletide;</syntaxhighlight> =={{header\|SQL}}== ===Oracle=== SQL has good support for date functions; care must be taken with NLS settings (globalization support), in the code below the date format language is passed in as an argument to the relevant function. (Or, see a variation that does not depend on language settings, after the output shown below.) Line 4,966 ⟶ 5,596: Alternatively, the WHERE clause can be written in a way that avoids the complication of language settings. The (overloaded) TRUNC function, as applied to dates, takes a second argument indicating "to what" we must truncate. One option is 'iw' for "ISO week"; this truncates to the most recent Monday (the beginning of the ISO standard week, which is Monday through Sunday by definition). Like so (replace in the query above): <syntaxhighlight lang="sql">where dt - trunc(dt, 'iw') = 6</syntaxhighlight> ===SQLite3=== <syntaxhighlight lang="sql">WITH RECURSIVE cte AS ( SELECT DATE('2008-12-25', '+'\|\|(120)\|\|' months') as dt, 1 AS level UNION ALL SELECT DATE('2008-12-25', '+'\|\|(12level)\|\|' months') as dt, c.level + 1 FROM cte c WHERE c.level <= 2121 - 2008 + 1 ) SELECT strftime('%Y', dt) FROM cte where strftime('%w', dt) = '0'; </syntaxhighlight> ===PostgreSQL=== <syntaxhighlight lang="sql"> WITH RECURSIVE cte AS ( SELECT date '2008-12-25' + interval '12 month' * 0 as dt, 1 AS level UNION ALL SELECT date '2008-12-25' + interval '12 month' * level as dt, c.level + 1 FROM cte c WHERE c.level <= 2121 - 2008 + 1 ) SELECT dt FROM cte where to_char(dt, 'Dy') = 'Sun'; </syntaxhighlight> =={{header\|Standard ML}}== Line 5,077 ⟶ 5,734: var year=2008 let formatter=~~NSDateFormatter~~DateFormatter() formatter.dateFormat = "yyyy-MM-dd" let gregorian:NSCalendar! = NSCalendar(calendarIdentifier: ~~NSCalendarIdentifierGregorian~~NSCalendar.Identifier.gregorian) while (year<2122){ var date:NSDate!=formatter.~~dateFromString~~date(from: String(year)+"-12-25") as NSDate? var components=gregorian.components(~~NSCalendarUnit~~NSCalendar.~~CalendarUnitWeekday~~Unit.weekday, ~~fromDate~~from: date as Date) var dayOfWeek:NSInteger=components.weekday! if(dayOfWeek==1){ ~~println~~print(year) } year++=1 } ~~}</syntaxhighlight>~~ </syntaxhighlight> {{out}} <pre>2011 Line 5,136 ⟶ 5,794: xmas 2112 is a sunday xmas 2118 is a sunday</pre> ~~=={{header\|TI-83 BASIC}}==~~ ~~'''Works with''' TI-84+/SE only~~ ~~<syntaxhighlight lang="ti83b">~~ ~~:For(A,2008,2121~~ ~~:If dayofWk(A,12,25)=1~~ ~~:Disp A~~ ~~:End~~ ~~</syntaxhighlight>~~ ~~{{out}}~~ ~~<pre>2011~~ ~~2016~~ ~~2022~~ ~~2033~~ ~~2039~~ ~~2044~~ ~~2050~~ ~~2061~~ ~~2067~~ ~~2072~~ ~~2078~~ ~~2089~~ ~~2095~~ ~~2101~~ ~~2107~~ ~~2112~~ ~~2118~~ ~~Done</pre>~~ =={{header\|TUSCRIPT}}== Line 5,349 ⟶ 5,979: 2112 2118</pre> ~~=={{header\|VBA}}==~~ ~~<syntaxhighlight lang="vb">Option Explicit~~ ~~Sub MainDayOfTheWeek()~~ ~~Debug.Print "Xmas will be a Sunday in : " & XmasSunday(2008, 2121)~~ ~~End Sub~~ ~~Private Function XmasSunday(firstYear As Integer, lastYear As Integer) As String~~ ~~Dim i As Integer, temp$~~ ~~For i = firstYear To lastYear~~ ~~If Weekday(CDate("25/12/" & i)) = vbSunday Then temp = temp & ", " & i~~ ~~Next~~ ~~XmasSunday = Mid(temp, 2)~~ ~~End Function</syntaxhighlight>~~ ~~{{Out}}~~ ~~<pre>Xmas will be a Sunday in : 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118</pre>~~ ~~=={{header\|VBScript}}==~~ ~~<syntaxhighlight lang="vb">For year = 2008 To 2121~~ ~~If Weekday(DateSerial(year, 12, 25)) = 1 Then~~ ~~WScript.Echo year~~ ~~End If~~ ~~Next</syntaxhighlight>~~ ~~{{Out}}~~ ~~<pre>~~ ~~2011~~ ~~2016~~ ~~2022~~ ~~2033~~ ~~2039~~ ~~2044~~ ~~2050~~ ~~2061~~ ~~2067~~ ~~2072~~ ~~2078~~ ~~2089~~ ~~2095~~ ~~2101~~ ~~2107~~ ~~2112~~ ~~2118~~ ~~</pre>~~ =={{header\|Vedit macro language}}== Line 5,497 ⟶ 6,081: =={{header\|Wren}}== {{libheader\|Wren-date}} <syntaxhighlight lang="~~ecmascript~~wren">import "./date" for Date System.print("Years between 2008 and 2121 when 25th December falls on Sunday:") Line 5,566 ⟶ 6,150: 2118 </pre> ~~=={{header\|Yabasic}}==~~ ~~{{trans\|FreeBASIC}}~~ ~~<syntaxhighlight lang="yabasic">sub wd(m, d, y)~~ ~~If m < 3 Then // If m = 1 Or m = 2 Then~~ ~~m = m + 12~~ ~~y = y - 1~~ ~~End If~~ ~~Return mod((y + int(y / 4) - int(y / 100) + int(y / 400) + d + int((153 * m + 8) / 5)), 7)~~ ~~End sub~~ ~~// ------=< MAIN >=------~~ ~~For yr = 2008 To 2121~~ ~~If wd(12, 25, yr) = 0 Then~~ ~~Print "Dec 25 ", yr~~ ~~EndIf~~ ~~Next</syntaxhighlight>~~ =={{header\|zkl}}== Line 5,633 ⟶ 6,199: 2017-12-05 :Tuesday </pre> ~~=={{header\|ZX Spectrum Basic}}==~~ ~~{{trans\|BASIC}}~~ ~~<syntaxhighlight lang="zxbasic">10 CLS~~ ~~20 FOR y=2008 TO 2121~~ ~~30 LET year=y: LET m=12: LET d=25: GO SUB 1000~~ ~~40 IF wd=0 THEN PRINT d;" ";m;" ";y~~ ~~50 NEXT y~~ ~~60 STOP~~ ~~1000 REM week day~~ ~~1010 IF m=1 OR m=2 THEN LET m=m+12: LET year=year-1~~ ~~1020 LET wd=FN m(year+INT (year/4)-INT (year/100)+INT (year/400)+d+INT ((153m+8)/5),7)~~ ~~1030 RETURN~~ ~~1100 DEF FN m(a,b)=a-INT (a/b)b</syntaxhighlight>~~