Double factorial

[DrD]

Here is a slight variation on your theme:

Code:


EXPORT factorial(n)
//Double factorial n!!
BEGIN
RETURN IFTE(odd(n), product(X,X,1,n,2), product(X,X,2,n,2));
END;

-Dale-