function fn=fact(n);
%FACT calcule de façon récursive et inefficace la factorielle de n
%fn=fact(n);
if (n<=0), fn=1; else fn=n*fact(n-1); end;
return;
