Day of the week: Difference between revisions
Content added Content deleted
(Optimised! :)) |
|||
| Line 2,745: | Line 2,745: | ||
'''Works with''' TI-84+/SE only |
'''Works with''' TI-84+/SE only |
||
<lang ti83b> |
<lang ti83b> |
||
:For(A, |
:For(A,2008,2121 |
||
:dayofWk(A,12,25 |
:If dayofWk(A,12,25)=1 |
||
:If Ans=1 |
|||
:Disp A |
:Disp A |
||
:End |
:End |
||
| Line 2,770: | Line 2,769: | ||
2118 |
2118 |
||
Done</pre> |
Done</pre> |
||
=={{header|TUSCRIPT}}== |
=={{header|TUSCRIPT}}== |
||
<lang tuscript> |
<lang tuscript> |
||