Discussion :

[Roland Chastain]

Bonjour !

Je vous propose un script qui détermine la date du dimanche de Pâques pour l'année courante, suivant l'algorithme d'Oudin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
# oudin1.pl
# Date de Pâques par l'algorithme d'Oudin
# Testé avec Perl 5.16.3
 
use strict;
use warnings;
use integer;
 
# Année courante
my $Y = (localtime)[5] + 1900;
 
# Calcul date de Pâques
my $G = $Y % 19;
my $C = $Y / 100;
my $C4 = $C / 4;
my $E = (8 * $C + 13) / 25;
my $H = (19 * $G + $C - $C4 - $E + 15) % 30;
my $K = $H / 28;
my $P = 29 / ($H + 1);
my $Q = (21 - $G) / 11;
my $I = ($K * $P * $Q - 1) * $K + $H;
my $B = ($Y / 4) + $Y;
my $J1 = $B + $I + 2 + $C4 - $C;
my $J2 = $J1 % 7;
my $R = 28 + $I - $J2;
 
# Affichage du résultat
print "Date de P\x83ques pour l'ann\x82e $Y : ";
if ($R < 32) {
  print "$R mars\n";
} else {
  $R = $R - 31;
  print "$R avril\n";
}

Qu'en pensez-vous ?

[Lolo78]

Bonjour,

je croyais que tu m'avais dit que tu ne faisais pas de Perl, pas mal du tout pour quelqu’un qui ne connaît pas Perl.

Je propose juste une petite modification:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $Y = shift // (localtime)[5] + 1900;

Cela permet de passer une autre année en paramètre (et donc de tester plus facilement sur d'autres années): si une année est donnée en paramètre au script, il calcule la date de Pâques pour cette année, sinon, il prend par défaut l'année de la date courante. Avec ce changement, j'ai testé quelques années pour lesquelles j'avais un calendrier, ça semble bien fonctionner.

Sinon, une seule critique: perso, j'utiliserais dans la mesure du possible des variables dont le nom documente ce qu'elles contiennent, et j'ajouterais un minimum de commentaires expliquant l'algorithme. Par exemple, dans ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
my $C = $Y / 100;
my $C4 = $C / 4;

$C4 est manifestement un correctif pour les années bissextiles, ce serait bien que ce soit plus explicite.

Tu l'as adapté en Perl depuis un algo dans un autre langage?

[Roland Chastain]

je croyais que tu m'avais dit que tu ne faisais pas de Perl, pas mal du tout pour quelqu’un qui ne connaît pas Perl.

Merci ! En fait je viens de m'y mettre, après avoir lu ton article sur les grammaires.

Je propose juste une petite modification:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $Y = shift // (localtime)[5] + 1900;

Cela permet de passer une autre année en paramètre (et donc de tester plus facilement sur d'autres années): si une année est donnée en paramètre au script, il calcule la date de Pâques pour cette année, sinon, il prend par défaut l'année de la date courante.

J'achète ! Merci pour le tuyau.

Sinon, une seule critique: perso, j'utiliserais dans la mesure du possible des variables dont le nom documente ce qu'elles contiennent, et j'ajouterais un minimum de commentaires expliquant l'algorithme.

Oui, sur le principe tu as raison. En fait, j'avais trouvé la formule dans ce document, et j'ai gardé tels quels les noms des variables. J'en avais fait d'abord une version en Pascal puis dans d'autres langages que je pratique. Je trouve cet algorithme assez fascinant mais je t'avoue que je serais bien incapable de l'expliquer. J'ai quelque part sur mon disque dur l'article original de l'inventeur de la formule. Il faudrait que je prenne le temps de l'étudier.

[djibril]

Bonne lecture https://fr.wikipedia.org/wiki/Calcul...de_P%C3%A2ques.

[Roland Chastain]

Bonne lecture https://fr.wikipedia.org/wiki/Calcul...de_P%C3%A2ques.

Merci !

[Lolo78]

Merci ! En fait je viens de m'y mettre, après avoir lu ton article sur les grammaires.

Eh ben, bienvenue dans la communauté Perl.

Et tu te débrouilles super bien pour quelqu'un qui vient de s'y mettre, bravo.

[Roland Chastain]

Merci Laurent ! À bientôt, j'espère, pour d'autres aventures.

[JeanMi3000]

Qu'en pensez-vous ?

Je vais être très critique, mais coder sans nommer correctement ses variables, ou du moins avec un nom intéressant ou qui se rapporte à leur fonction, n'est pas acceptable.
Ton code ne me donne aucune envie de le relire pour tenter de le comprendre.

[Lolo78]

Bah, c'est vrai que ce serait mieux d'avoir des noms de variables plus parlants, et c'est aussi ce que j'ai dit plus haut, mais Roland n'a fait que reprendre les noms de variables provenant d'un algorithme de calcul publié sur le site de l'Université de Lille. Pas forcément facile d'inventer les noms si l'on ne maîtrise pas vraiment les fondements théologiques et astronomiques assez complexes du calcul de la date de Pâques.