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-sunday (year)
(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-sunday 2012)</lang>
(last-friday 2012)</lang>
{{output}}
{{output}}
<pre>2012-01-27
<pre>2012-01-27