[ILUG] impressive...

[Leo Talbot]

On Thu, 28 Oct 1999, Donnchadh [iso-8859-1] O Donnabhain wrote:

> "John P . Looney" wrote:
> > 
> >  Check this out.
> > 
> >  Into umb-scheme, type:
> > 
> >  (define (factorial number)(if (= number 0)  1   (* number (factorial (- number 1)))))
> > 
> >  then:
> > 
> >  (factorial 5500)
> > 
> >  How easy would it be to write a tcl, C or C++ function to get the
> > factorial of 5500 ? Scheme rocks!
> 
>   int factorial(int number){ if (number == 0) return 1;  else return
> number*factorial(number-1);}

OR

int factorial(int number){ return (number ? number*factorial(number-1) : 1);}

Leo
--
I've got green eyes, red hair, and I'm left handed. A hundred
years ago, I'd have been considered in league with the Devil.
            http://www.cs.tcd.ie/Leo.Talbot
PGP: RSA 1024 0x341E0EBD fp=79940BEB A9F22827 E524F100 9C83D34A