Last Friday of each month: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 993: | Line 993: | ||
<pre> |
<pre> |
||
32> [io:fwrite("~B-~2.10.0B-~B~n", [Y,M,D]) || {Y,M,D} <- last_date_each_month:friday(2012)]. |
32> [io:fwrite("~B-~2.10.0B-~B~n", [Y,M,D]) || {Y,M,D} <- last_date_each_month:friday(2012)]. |
||
2012-01-27 |
|||
2012-02-24 |
|||
2012-03-30 |
|||
2012-04-27 |
|||
2012-05-25 |
|||
2012-06-29 |
|||
2012-07-27 |
|||
2012-08-31 |
|||
2012-09-28 |
|||
2012-10-26 |
|||
2012-11-30 |
|||
2012-12-28 |
|||
</pre> |
|||
=={{header|Factor}}== |
|||
<lang factor>USING: calendar calendar.format command-line io kernel math.parser sequences ; |
|||
IN: rosetta-code.last-fridays |
|||
(command-line) second string>number <year> 12 iota |
|||
[ months time+ last-friday-of-month ] with map |
|||
[ timestamp>ymd print ] each</lang> |
|||
{{out}} |
|||
<pre> |
|||
>factor last-fridays.factor 2012 |
|||
2012-01-27 |
2012-01-27 |
||
2012-02-24 |
2012-02-24 |
||