PostScript:
%!PS
/factorial {
dup 0 eq {pop 1}{dup 1 sub factorial mul}ifelse
} def
/printfactorial {
/str 20 string def
30 750 moveto /Courier findfont 30 scalefont setfont
dup str cvs show
(! = ) show
factorial str cvs show
} def
34 printfactorial
showpage
Now all we need is an APL version, and perhaps one or two obscure assembler versions. VAX assembler anyone? Cray assembler maybe?
Cheers,
Brian.
Maintained by the ILUG website team. The aim of Linux.ie is to
support and help commercial and private users of Linux in Ireland. You can
display ILUG news in your own webpages, read backend
information to find out how. Networking services kindly provided by HEAnet, server kindly donated by
Dell. Linux is a trademark of Linus Torvalds,
used with permission. No penguins were harmed in the production or maintenance
of this highly praised website. Looking for the
Indian Linux Users' Group? Try here. If you've read all this and aren't a lawyer: you should be!
