From: Brian Foley (brian at domain bluetree.ie)
Date: Fri 29 Oct 1999 - 10:01:10 IST
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.
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:04:48 GMT