Day of the week: Difference between revisions
Content added Content deleted
m (→{{header|Picat}}: Added {{out}}) |
(Added VTL-2) |
||
Line 5,106: | Line 5,106: | ||
December 25 2112 is a Sunday |
December 25 2112 is a Sunday |
||
December 25 2118 is a Sunday |
December 25 2118 is a Sunday |
||
</pre> |
|||
=={{header|VTL-2}}== |
|||
{{Trans|ALGOL W}}...which is {{Trans|Fortran}} |
|||
VTL-2 does not have operator precedence - all expressions are evaluated left-to-right, except for expressions nested in parenthesis, hence the expression at line 1090 differs from that in the Algol W sample. |
|||
<lang VTL2>1000 #=2000 |
|||
1010 R=! |
|||
1020 N=M |
|||
1030 X=Y |
|||
1040 #=N>3*1070 |
|||
1050 N=N+12 |
|||
1060 X=X-1 |
|||
1070 J=X/100 |
|||
1080 K=% |
|||
1090 W=N+1*26/10+D+K+(K/4)+(J/4)+(5*J)/7*0+% |
|||
1100 #=R |
|||
2000 ?="25th of December is a Sunday in"; |
|||
2010 Y=2008 |
|||
2020 M=12 |
|||
2030 D=25 |
|||
2040 #=1010 |
|||
2050 #=W=1=0*2080 |
|||
2060 $=32 |
|||
2070 ?=Y |
|||
2080 Y=Y+1 |
|||
2090 #=Y<2121*2040 |
|||
2100 ?=""</lang> |
|||
{{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> |
</pre> |
||