Find the last Sunday of each month: Difference between revisions

Content added Content deleted
(→‎{{header|Elixir}}: add Emacs Lisp)
Line 1,543: Line 1,543:
(mdy (mapcar (lambda (x) (list month x year)) days))
(mdy (mapcar (lambda (x) (list month x year)) days))
(weekdays (mapcar #'calendar-day-of-week mdy))
(weekdays (mapcar #'calendar-day-of-week mdy))
(lastsunday (1+ (cl-position 0 weekdays :from-end t)))
(lastsunday (1+ (cl-position 0 weekdays :from-end t))))
⚫
(insert (format "%i-%02i-%02i \n" year month lastsunday))))
)
⚫
(insert (format "%02i-%02i-%02i \n" year month lastsunday))
))
(number-sequence 1 12)))
(number-sequence 1 12)))


Retrieved from "https://rosettacode.org/wiki/Find_the_last_Sunday_of_each_month"