¿Qué día de la semana fue?

Martin Gardner presentaba en una de sus columnas en el Scientific American hace ya unas cuantas décadas un brillante algoritmo, fácil de recordar y usar sin lápiz y papel, para obtener el día de la semana de cualquier fecha. Más tarde, no sólo este algoritmo, sino muchos otros más para efectuar trucos con cálculos fueron presentados en uno de sus libros, bajo el capítulo "Trucos de Calculístas Ultra-rápidos" (creo que así es como se tradujo al español). Hace mucho que no leo a Gardner—todos sus libros quedaron en casa de mis padres—pero un par de cuentas me han hecho recordar casi por completo el algoritmo que inspira esta entrada:

1. Siglo. El primer coeficiente, σ, lo da el siglo siguiendo esta tabla:
   
   

   1700 … 1799	1800 … 1899	1900 … 1999	2000 … 2099	2100 … 2199	2200 … 2299
   +5	+3	+1	0	–2	–4

   
   
2. Año. Toma los dos últimos dígitos del año y súmale un cuarto de dicha cantidad (despreciando decimales, y sin redondear). Ésto da el segundo coeficiente, α.
   
3. Años bisiestos. Éstos son los terminados en múltiplos de cuatro, excepto los terminados en doble cero. Entre estos últimos, sólo son bisiestos los múltiplos de cuatrocientos. En dicho caso, si el año es bisiesto, y el mes es o bien enero o febrero, el coeficiente correspondiente, β, es –1. En cualquier otro caso, cero.
   
4. Mes. El cuarto coeficiente, μ, viene dado por la siguiente tabla:
   

   E	F	M	A	M	J	J	A	S	O	N	D
   6	2	2	5	0	3	5	1	4	6	2	4

   
   
5. Día. El quinto coeficiente, δ, es símplemente el día del mes.
   
6. Algoritmo: Calcula el residuo módulo siete de la suma (σ + α + β + μ + δ). El uno corresponde al lunes, y así consecutivamente hasta el siete (cero), que se corresponde con el domingo.
   

Ejemplo: 22 de agosto de 1973.

σ	α	β	μ	δ	(σ + α + β + μ + δ) mod 7	día
1	73+⌊73/4⌋ = 73 + 18 = 91	0	1	22	115 mod 7 = 3	Miércoles