Anonymous user
Last Friday of each month: Difference between revisions
→{{header|Emacs Lisp}}
Line 1,373:
(mdy (mapcar (lambda (x) (list month x year)) days))
(weekdays (mapcar #'calendar-day-of-week mdy))
(lastfriday (1+ (cl-position 5 weekdays :from-end t))))
▲ (insert (format "%02i-%02i-%02i \n" year month lastfriday))
(number-sequence 1 12)))
| |||