Mathematica, factoriel!

[ilsraa]

Bonjour,

J'ai essayé d'écrire la fonction factorielle avec un While et un For. J'ai écris le programme A et B, mais aucun des deux fonctionnent... Est-ce que quelqu'un peut les corriger?
Merci
(language Mathematica 7)



Programme A
1 | n = 10;
2 | fact = 1;
3 | While[n > 1,
4 | n = n - 1;
5 | fact = fact * n;
6 | ]
7 | fact

Programme B
1 | n = 10;
2 | fact = 1;
3 | For[i = 1, i <= n, i--,
4 | fact = fact * i
5 | ]
6 | fact

[ilsraa]

Ah c'est bon;)