Rosetta Code

Day of the week: Difference between revisions

Page Discussion

Day of the week (view source)

Revision as of 11:17, 23 July 2010

208 bytes added ,  13 years ago
m
→‎[[Day_of_the_week#ALGOL 68]]: fix pre tag
No edit summary
Line 94:
</pre>
=={{header|ALGOL 68}}==
{{works with|ALGOL 68|StandardRevision 1 - no extensions to language used}}
{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}
{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386}} ▼
<lang algol68>main:(
# example from: http://www.xs4all.nl/~jmvdveer/algol.html - GPL #▼
INT sun=0 # , mon=1, tue=2, wed=3, thu=4, fri=5, sat=6 #;▼
 
{{works with|ALGOL 68G|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-1.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny]}}
PROC day of week = (INT year, month, day) INT: (▼
# Day of the week by Zeller’s Congruence algorithm from 1887 #▼
INT y := year, m := month, d := day, c;▼
IF m <= 2 THEN▼
m +:= 12; y -:= 1▼
FI;▼
c := y OVER 100;▼
y %*:= 100;▼
(d - 1 + ((m + 1) * 26) OVER 10 + y + y OVER 4 + c OVER 4 - 2 * c) MOD 7▼
);▼
 
▲{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d]}}
▲<lang algol68># example from: http://www.xs4all.nl/~jmvdveer/algol.html - GPL #
▲ INT sun=0 # , mon=1, tue=2, wed=3, thu=4, fri=5, sat=6 #;
 
▲ PROC day of week = (INT year, month, day) INT: (
▲ # Day of the week by Zeller’s Congruence algorithm from 1887 #
▲ INT y := year, m := month, d := day, c;
▲ IF m <= 2 THEN
▲ m +:= 12; y -:= 1
▲ FI;
▲ c := y OVER 100;
▲ y %*:= 100;
▲ (d - 1 + ((m + 1) * 26) OVER 10 + y + y OVER 4 + c OVER 4 - 2 * c) MOD 7
▲ );
 
test:(
print("December 25th is a Sunday in:");
FOR year FROM 2008 TO 2121 DO
Line 118 ⟶ 120:
OD;
new line(stand out)
)
)</lang>
Output:
<pre>
<lang algol68>December 25th is a Sunday in: 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</lang>
</pre>
 
=={{header|AutoHotkey}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/93203"