Five weekends: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 4,033: | Line 4,033: | ||
Months with 5 weekends: 201 |
Months with 5 weekends: 201 |
||
Years without 5 weekends in the same month: 29</pre> |
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}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |