RosettaCodeData/Task/Factorial/PostScript/factorial-3.ps

2 lines
54 B
PostScript

/myfact {{dup 0 eq} {pop 1} {dup pred} {mul} linrec}.