Last Friday of each month: Difference between revisions
→{{header|Oforth}}
(jq) |
|||
Line 1,085:
ocaml unix.cma str.cma -I +calendar calendarLib.cma last_fridays.ml 2012
=={{header|Oforth}}==
<lang Oforth>func: lastFridays(y)
{
| m |
Date.JANUARY Date.DECEMBER for: m [
Date newDate(y, m, Date.DaysInMonth(y, m))
while(dup dayOfWeek Date.FRIDAY <>) [ addDays(-1) ]
println
]
}</lang>
{{out}}
<pre>
2012-01-27 00:00:00,000
2012-02-24 00:00:00,000
2012-03-30 00:00:00,000
2012-04-27 00:00:00,000
2012-05-25 00:00:00,000
2012-06-29 00:00:00,000
2012-07-27 00:00:00,000
2012-08-31 00:00:00,000
2012-09-28 00:00:00,000
2012-10-26 00:00:00,000
2012-11-30 00:00:00,000
2012-12-28 00:00:00,000
</pre>
=={{header|Perl}}==
| |||