Last Friday of each month: Difference between revisions
Content added Content deleted
(→{{header|Elm}}: add Emacs Lisp) |
|||
Line 1,366: | Line 1,366: | ||
<lang lisp>(require 'calendar) |
<lang lisp>(require 'calendar) |
||
(defun last- |
(defun last-friday (year) |
||
"Print the last Friday in each month of year" |
"Print the last Friday in each month of year" |
||
(mapcar (lambda (month) |
(mapcar (lambda (month) |
||
Line 1,379: | Line 1,379: | ||
(number-sequence 1 12))) |
(number-sequence 1 12))) |
||
(last- |
(last-friday 2012)</lang> |
||
{{output}} |
{{output}} |
||
<pre>2012-01-27 |
<pre>2012-01-27 |