12 lines
232 B
PostScript
12 lines
232 B
PostScript
/fact {
|
|
dup 0 eq % check for the argument being 0
|
|
{
|
|
pop 1 % if so, the result is 1
|
|
}
|
|
{
|
|
dup
|
|
1 sub
|
|
fact % call recursively with n - 1
|
|
mul % multiply the result with n
|
|
} ifelse
|
|
} def
|