Five weekends: Difference between revisions

m
→‎version for newer REXXes: added more whitespace in the '''output'''. -- ~~~~
m (→‎version for newer REXXes: used different gylphs in output, indented DO loops more, added or changed comments, added verbage in the section header. -- ~~~~)
m (→‎version for newer REXXes: added more whitespace in the '''output'''. -- ~~~~)
Line 2,642:
end /*y*/
say
say 'There were ' haps " occurrence"s(haps) 'of five-weekend months in',
'of five-weekend months in "year"'s(years) yStart'──►'yStop; say
no5s=0
do y=yStart to yStop; if yr5.y then iterate /*skip if OK*/
Line 2,650:
end /*y*/
say
say "There are " no5s ' year's(no5s),
"that haven't any five─weekend months in year"s(years) yStart'──►'yStop
exit /*stick a fork in it, we're done.*/
Line 2,864:
There are five weekends in 2100 October
 
There were 201 occurrences of five-weekend months in years 1900──►2100
 
Year 1900 doesn't have any five-weekend months.
Line 2,896:
Year 2096 doesn't have any five-weekend months.
 
There are 29 years that haven't any five─weekend months in years 1900──►2100
</pre>