Jump to content

Find the last Sunday of each month: Difference between revisions

Find the last Sunday of each month (view source)

Revision as of 17:02, 18 January 2020

No change in size ,  4 years ago
m
→‎{{header|Factor}}: align stack effects
m (→‎{{header|Factor}}: tweak whitespace)
m (→‎{{header|Factor}}: align stack effects)
Line 1,147:
IN: rosetta-code.last-sunday
 
: parse-year ( -- ts ) ) (command-line) second string>number <year> ;
: print-last-sun ( ts -- ) ) last-sunday-of-month (timestamp>ymd) nl ;
: inc-month ( ts -- ts' ) 1 months time+ ;
: process-month ( ts -- ts' ) dup print-last-sun inc-month ;
: main ( -- ) -- ) parse-year 12 [ process-month ] times drop ;
 
MAIN: main</lang>
Chunes
1,808

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/229734"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information