Anonymous user
Five weekends: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 4,033:
Months with 5 weekends: 201
Years without 5 weekends in the same month: 29</pre>
=={{header|Maple}}==
<lang Maple>five_weekends:= proc()
local i, month, count;
#Only months with 31 days can possibly satisfy the condition
local long_months := [1,3,5,7,8,10,12];
local months := ["January","February","March","April","May","June","July","August","September","October","November","December"];
count := 0;
for i from 1900 to 2100 by 1 do
for month in long_months do
if Calendar:-DayOfWeek(Date(i, month, 1)) = 6 then
printf("%d-%s\n", i, months[month]);
count++;
end if;
end do;
end do;
printf("%d months have five full weekends.\n", count);
end proc;
five_weekends();</lang>
{{Out|Output}}
<pre>1901-March
1902-August
1903-May
1904-January
1904-July
1905-December
1907-March
1908-May
1909-January
1909-October
1910-July
1911-December
1912-March
1913-August
1914-May
1915-January
1915-October
1916-December
1918-March
1919-August
1920-October
1921-July
1922-December
1924-August
1925-May
1926-January
1926-October
1927-July
1929-March
1930-August
1931-May
1932-January
1932-July
1933-December
1935-March
1936-May
1937-January
1937-October
1938-July
1939-December
1940-March
1941-August
1942-May
1943-January
1943-October
1944-December
1946-March
1947-August
1948-October
1949-July
1950-December
1952-August
1953-May
1954-January
1954-October
1955-July
1957-March
1958-August
1959-May
1960-January
1960-July
1961-December
1963-March
1964-May
1965-January
1965-October
1966-July
1967-December
1968-March
1969-August
1970-May
1971-January
1971-October
1972-December
1974-March
1975-August
1976-October
1977-July
1978-December
1980-August
1981-May
1982-January
1982-October
1983-July
1985-March
1986-August
1987-May
1988-January
1988-July
1989-December
1991-March
1992-May
1993-January
1993-October
1994-July
1995-December
1996-March
1997-August
1998-May
1999-January
1999-October
2000-December
2002-March
2003-August
2004-October
2005-July
2006-December
2008-August
2009-May
2010-January
2010-October
2011-July
2013-March
2014-August
2015-May
2016-January
2016-July
2017-December
2019-March
2020-May
2021-January
2021-October
2022-July
2023-December
2024-March
2025-August
2026-May
2027-January
2027-October
2028-December
2030-March
2031-August
2032-October
2033-July
2034-December
2036-August
2037-May
2038-January
2038-October
2039-July
2041-March
2042-August
2043-May
2044-January
2044-July
2045-December
2047-March
2048-May
2049-January
2049-October
2050-July
2051-December
2052-March
2053-August
2054-May
2055-January
2055-October
2056-December
2058-March
2059-August
2060-October
2061-July
2062-December
2064-August
2065-May
2066-January
2066-October
2067-July
2069-March
2070-August
2071-May
2072-January
2072-July
2073-December
2075-March
2076-May
2077-January
2077-October
2078-July
2079-December
2080-March
2081-August
2082-May
2083-January
2083-October
2084-December
2086-March
2087-August
2088-October
2089-July
2090-December
2092-August
2093-May
2094-January
2094-October
2095-July
2097-March
2098-August
2099-May
2100-January
2100-October
201 months have five full weekends.</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
| |||