RE: [ILUG] impressive...

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