Introducción
Cada mes, tu pareja queda con su mejor amigo.
Ambos tienen agendas muy apretadas, ¡así que encontrar una fecha que les venga bien es todo un reto!
Como tú también tienes una agenda apretada, tu pareja siempre consulta contigo las posibles fechas para quedar:
- «¿Puedo quedar el primer viernes del mes que viene?»
- «¿Y el tercer miércoles?»
- «¿Quizá el último domingo?»
En la llamada de este mes, tu pareja te hizo esta pregunta:
- «Me gustaría quedar el jueves teenth; ¿te parece bien?»
Confundido, preguntas qué es un día «teenth».
Tu pareja te explica que un día teenth, un concepto que se ha inventado, se refiere a los días del mes que terminan en «-teenth»:
- 13th (thirteenth)
- 14th (fourteenth)
- 15th (fifteenth)
- 16th (sixteenth)
- 17th (seventeenth)
- 18th (eighteenth)
- 19th (nineteenth)
Como además hay siete días de la semana, está garantizado que cada día de la semana tiene exactamente un día teenth cada mes.
Ahora que entiendes el concepto de día teenth, consultas tu calendario.
No tienes nada planeado para el jueves teenth, así que confirmas la fecha con tu pareja muy contento.
Instrucciones
Tu tarea es encontrar la fecha exacta de una reunión, dados un mes, un año, un día de la semana y una semana.
Hay seis valores posibles para la semana: first, second, third, fourth, last y teenth.
Por ejemplo, es posible que te pidan encontrar la fecha de la reunión del primer lunes de enero de 2018 (1 de enero de 2018).
Del mismo modo, es posible que te pidan encontrar:
- el tercer martes de agosto de 2019 (20 de agosto de 2019)
- el miércoles «teenth» de mayo de 2020 (13 de mayo de 2020)
- el cuarto domingo de julio de 2021 (25 de julio de 2021)
- el último jueves de noviembre de 2022 (24 de noviembre de 2022)
- el sábado «teenth» de agosto de 1953 (15 de agosto de 1953)
Teenth
La semana «teenth» se refiere a los siete días de un mes que terminan en «-teenth» (13th, 14th, 15th, 16th, 17th, 18th and 19th).
Si nos piden encontrar el sábado «teenth» de agosto de 1953, consultamos su calendario:
August 1953
Su Mo Tu We Th Fr Sa
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
De ahí deducimos que el sábado «teenth» es el 15 de agosto de 1953.
Trabajar con fechas en Prolog
El soporte integrado de Prolog para fechas es bastante rudimentario.
Una forma mucho mejor de trabajar con fechas es usar el [paquete date_time][date_time-package].
Instalar el paquete date_time
Si la versión de Swipl que tienes instalada está bastante actualizada, puedes instalar el paquete ejecutando:
swipl pack install date_time
Si eso no funciona, puedes ejecutar:
swipl -g 'pack_install(date_time)'
Si usas el editor en línea, no necesitas instalar nada manualmente.
Usar el paquete date_time
Añade el siguiente código al principio de tu fichero de solución para usar el paquete date_time:
:- use_module(library(date_time)).
Consejo: el [código fuente del paquete date_time][https://www.swi-prolog.org/pack/file_details/date_time/prolog/date_time.pl?show=src] está bien documentado y puede serte de gran ayuda.
Fuente
Jeremy Hinegardner mencionó una quedada en Boulder que tiene lugar el «Wednesteenth» de cada mes
