Find the last Sunday of each month: Difference between revisions
Content added Content deleted
m (Amendments.) |
(add RPL) |
||
Line 4,564: | Line 4,564: | ||
2013-12-29 |
2013-12-29 |
||
</pre> |
</pre> |
||
<code>WKDAY</code> is defined at [[Day of the week#RPL|Day of the week]] |
|||
{{works with|HP|48}} |
|||
≪ → year |
|||
≪ { } |
|||
.02 .13 '''FOR''' month |
|||
1 month .13 == DUP .01 month IFTE SWAP year + 1000000 / + + <span style="color:grey">@ Generate 1st day of the following month</span> |
|||
DUP <span style="color:blue">WKDAY</span> NEG DATE+ + |
|||
.01 '''STEP''' |
|||
2 FIX <span style="color:grey">@ Display October Sunday as ##.10 and not as ##.1</span> |
|||
≫ ≫ '<span style="color:blue">LSTSU</span>' STO |
|||
2013 <span style="color:blue">LSTSU</span> |
|||
{{out}} |
|||
<pre> |
|||
1: { 27.01 24.02 24.03 28.04 26.05 30.06 28.07 25.08 29.09 27.10 24.11 29.12 } |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |