Anonymous user
Day of the week: Difference between revisions
m
Fixed alphabetic position
(Put "Output:" token into separate 'pre') |
m (Fixed alphabetic position) |
||
Line 513:
Sun Dec 25 00:00:00 EST 2112
Sun Dec 25 00:00:00 EST 2118</pre>
=={{header|PicoLisp}}==▼
<lang PicoLisp>(for (Y 2008 (>= 2121 Y) (inc Y))▼
(when (= "Sunday" (day (date Y 12 25)))▼
(printsp Y) ) )</lang>▼
Output:▼
<pre>2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre>▼
=={{header|M4}}==
Line 791 ⟶ 784:
25 Dec 2118 is Sunday
</pre>
▲=={{header|PicoLisp}}==
▲<lang PicoLisp>(for (Y 2008 (>= 2121 Y) (inc Y))
▲ (when (= "Sunday" (day (date Y 12 25)))
▲ (printsp Y) ) )</lang>
▲Output:
▲<pre>2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre>
=={{header|PL/I}}==
| |||