13 Return the factorial of a number. Factorial is defined as:
15 x! = 1 * 2 * 3 * ... * x-1 * x
19 ; print fact(10), fact(5), fact(2), fact(1), fact(0)
23 815915283247897734345611269596115894272000000000
30 void zfact(NUMBER x, *ret)
35 ## Copyright (C) 1999-2006 Landon Curt Noll
37 ## Calc is open software; you can redistribute it and/or modify it under
38 ## the terms of the version 2.1 of the GNU Lesser General Public License
39 ## as published by the Free Software Foundation.
41 ## Calc is distributed in the hope that it will be useful, but WITHOUT
42 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
43 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
44 ## Public License for more details.
46 ## A copy of version 2.1 of the GNU Lesser General Public License is
47 ## distributed with calc under the filename COPYING-LGPL. You should have
48 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
49 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
51 ## @(#) $Revision: 30.1 $
52 ## @(#) $Id: fact,v 30.1 2007/03/16 11:10:42 chongo Exp $
53 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/fact,v $
55 ## Under source code control: 1994/10/20 04:03:02
56 ## File existed as early as: 1994
58 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
59 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/