¦WΘ1š-1šVтFY`2ô0Kθ4ÖUD2Qi\28X+ë<7%É31α}‹iY¬>0ëY1¾ǝDÅsD12‹i>1ë\1Dǝ¤>2}}ǝVY})DJIJk18+£35.£¬.•4ιõ÷‡o‹ƶ¸•2ôs`UÐ3‹12*+>13*5÷s3‹Xα©т%D4÷®т÷©4÷®·()DćsćsO7%._s€нT‰J«7ô»
Entrez dans le format [day, month, year]. Sortie avec les principaux 0s pour les jours à un seul chiffre, et minuscule mopar su(1 octet peut être ajouté si titlecase est obligatoire).
Essayez-le en ligne ou vérifiez tous les cas de test .
Putain de merde… C'est peut-être mon nouveau record pour la réponse la plus longue 05AB1E, puis j'inclus quelques défis très complexes que j'ai rencontrés dans l' art ascii …>.> EDIT: Hum ok, presque…; p
Remarque importante: 05AB1E ne contient aucune propriété intégrée pour les objets Date ou les calculs. Les seules dates intégrées sont les suivantes: année / mois / jour / heures / minutes / secondes / microsecondes.
Donc, à cause de cela, presque tout le code que vous voyez est un calcul manuel permettant de calculer les jours précédents et suivants (y compris la transition d’une année à l’autre et en gardant à l’esprit les années bissextiles), et de calculer le jour de la semaine en utilisant la congruence de Zeller .
Des parties énormes du code sont copiées à partir de ma précédente réponse 05AB1E , ce qui sera également pertinent pour l'explication ci-dessous.
Explication:
Nous commençons par aller au premier jour du mois précédent:
¦ # Remove the first item (the days) from the (implicit) input
W # Get the minimum (without popping the list itself)
# (since the year is guaranteed to be above 1599, this is the month)
Θ # Check if its exactly 1 (1 if 1, 0 if in the range [2,31])
1š # Prepend a 1 as list (so we now have either [1,1] or [1,0]
- # Subtract this from the month and year
1š # And prepend a 1 for the day
V # Pop and store this first day of the previous month in variable `Y`
Ensuite, j'utilise cette date comme date de début et calcule les 100 prochains jours:
тF # Loop 100 times:
Y`2ô0Kθ4ÖUD2Qi\28X+ë<7%É31α}‹iY¬>0ëY1¾ǝDÅsD12‹i>1ë\1Dǝ¤>2}}ǝV
# Calculate the next day in line
# (see the linked challenge above for a detailed explanation of this)
Y # And leave it on the stack
}) # After the loop: wrap the entire stack into a list, which contains our 100 days
Ensuite, avec la date d'entrée au milieu, je ne laisse que les 17 avant et 17 après cette date d'entrée de la liste:
DJ # Duplicate the 100 dates, and join the day/month/year together to strings
IJ # Push the input, also joined together
k # Get the 0-based index of the input in this list
# (the joins are necessary, because indexing doesn't work for 2D lists)
18+ # Add 18 to this index (18 instead of 17, because the index is 0-based)
£ # Only leave the first index+18 items from the 100 dates
35.£ # Then only leave the last 35 items
Maintenant nous avons nos 35 jours. La prochaine étape consiste à calculer le jour de la semaine et à créer l'en-tête de la table de sortie:
¬ # Get the first date of the list (without popping the list itself)
.•4ιõ÷‡o‹ƶ¸• # Push compressed string "sasumotuwethfr"
2ô # Split it into chunks of size 2
s # Swap to get the first date again
`UÐ3‹12*+>13*5÷s3‹Xα©т%D4÷®т÷©4÷®·()DćsćsO7%
# Calculate the day of the week (sa=0; su=1; ...; fr=6)
# (see the linked challenge above for a detailed explanation of this)
._ # Rotate the list of strings that many times
Voir cette astuce de mes 05AB1E (section Comment chaînes Compresser ne font pas partie du dictionnaire? ) Pour comprendre pourquoi .•4ιõ÷‡o‹ƶ¸•est "sasumotuwethfr".
Ensuite, nous créons les jours pour remplir la table elle-même en fonction de notre liste de dates précédemment créée. Que nous allons fusionner avec l'en-tête. Après quoi, nous pouvons imprimer le résultat final:
s # Swap to get the list of dates again
€н # Only leave the first item of each date (the days)
T‰ # Take the divmod 10 of each
J # Join those divmod results together
# (we now have leading 0s for single-digit days)
« # Merge this list together with the header list
7ô # Split it into chunks of size 7
» # Join each inner list by spaces, and then each string by newlines
# (and output the result implicitly)
