Find the last Sunday of each month: Difference between revisions
m
→{{header|Oforth}}
(→{{header|FBSL}}: Reposition.) |
|||
Line 1,676:
=={{header|Oforth}}==
<lang Oforth>
| m |
Date.JANUARY Date.DECEMBER for: m [
Date newDate(y, m, Date.DaysInMonth(y, m))
while(dup dayOfWeek Date.SUNDAY <>) [ addDays(-1) ] println
{{out}}
|