## usage: answer = lg_factorial4( n )
##
## Retourne la factorielle de n (n!). n doit être un entier
## positif ou 0.

function answer = lg_factorial4( n )

    if( nargin != 1 )
        usage( "factorial( n )" );
    elseif( !isscalar( n ) ||  !isreal( n ) )
        error( "n doit être une valeur entière positive" );
    elseif( n < 0 )
        error( "il n'y a pas de définition pour les factorielles négatives" );
    endif
    
    if( n == 0 )
        answer = 1;
        return;
    else
        answer = prod( 1:n );
    endif

endfunction
