El día negado

Thu, 14 Mar 2013 02:03:00 +0100

Leyendo el espejo lúdico, me encuentro con estas dos preguntas:

¿Hay algún día de la semana en el que nunca puede empezar un siglo? Por el contrario, ¿cuál es el día de la semana que puede ser inicio y final de un siglo?

que pueden quedar contestadas rápidamente ejecutando el siguiente comando:

$ for year in `seq 2001 100 3001`; do cal 1 $year | grep -A2 $year; done | grep --color -B2 " 1 "
Enero 2001
do lu ma mi ju vi sá
1 2 3 4 5 6
Enero 2101
do lu ma mi ju vi sá
1
Enero 2201
do lu ma mi ju vi sá
1 2 3
Enero 2301
do lu ma mi ju vi sá
1 2 3 4 5
Enero 2401
do lu ma mi ju vi sá
1 2 3 4 5 6
Enero 2501
do lu ma mi ju vi sá
1
Enero 2601
do lu ma mi ju vi sá
1 2 3
Enero 2701
do lu ma mi ju vi sá
1 2 3 4 5
Enero 2801
do lu ma mi ju vi sá
1 2 3 4 5 6
Enero 2901
do lu ma mi ju vi sá
1
Enero 3001
do lu ma mi ju vi sá
1 2 3

Los años divisibles por 100 no son bisiestos, a no ser que sean divisible por 400:

De aquí al 2038

Thu, 07 Oct 2010 13:27:00 +0100

Como bien dice el agente Smith, es cuestión de contrastar un poco. Octubres con 5 viernes, 5 sábados y 5 domingos, de aquí al 2038, si es que llegamos:

$ for ((i=2011; i < 2039; i++)); do cal 10 $i; done |
grep -B2 -A4 " 1 2 3"

 Octubre 2021
lu ma mi ju vi sá do
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
--
Octubre 2027
lu ma mi ju vi sá do
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
--
Octubre 2032
lu ma mi ju vi sá do
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
--
Octubre 2038
lu ma mi ju vi sá do
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31

Cal on Karpoke - Just Another Blog

El día negado

De aquí al 2038