Anonymous user
Find the last Sunday of each month: Difference between revisions
→{{header|Emacs Lisp}}
(→{{header|Elixir}}: add Emacs Lisp) |
|||
Line 1,543:
(mdy (mapcar (lambda (x) (list month x year)) days))
(weekdays (mapcar #'calendar-day-of-week mdy))
(lastsunday (1+ (cl-position 0 weekdays :from-end t))))
▲ (insert (format "%02i-%02i-%02i \n" year month lastsunday))
(number-sequence 1 12)))
| |||