Last Friday of each month: Difference between revisions
Content added Content deleted
(→{{header|Ruby}}: Use d -= (d.wday - 5) % 7) |
(Added PicoLisp) |
||
Line 312: | Line 312: | ||
2012-12-28 |
2012-12-28 |
||
</pre> |
</pre> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de lastFridays (Y) |
|||
(for M `(range 1 12) |
|||
(prinl |
|||
(dat$ |
|||
(find '((D) (= "Friday" (day D))) |
|||
(mapcar '((D) (date Y M D)) `(range 31 22)) ) |
|||
"-" ) ) ) )</lang> |
|||
Test: |
|||
<lang PicoLisp>: (lastFridays 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</lang> |
|||
=={{header|Pike}}== |
=={{header|Pike}}== |