Algorithmique mystérieuse

[sc]

Voici un code maxima mystérieux :

Code: Tout sélectionner

mystere()   :=  (
          jr:read("Ecrivez votre jour de naissance (puis <maj>+<entree>) : ")  ,
          ms:read("Ecrivez votre numero de mois de naissance : ")  ,
          an:read("Ecrivez votre annee de naissance :")    ,
          p(x):=expand(  jr*(x-jr)*(x-ms)/((an-jr)*(an-ms)) + ms*(x-ms)*(x-an)/((jr-ms)*(jr-an)) + an*(x-an)*(x-jr)/((ms-an)*(ms-jr))    )   ,
          display(p(x))
         );

à executer par :

Code: Tout sélectionner

mystere()

Qu' a de spécial le résultat obtenu ?

[bbc]

p(jour) = mois, p(mois) = année et p(année) = jour.

Merci aux polynômes de Lagrange :)

[sc]

Bien joué !