Rob Dixon wrote:
> B. Rothstein wrote:
> >
> > Does anyone have any suggestions on how to create an array to hold the value
> > of 1000 factorial?
>
> Hi.
>
> Use Math::BigInt. The program below stores the first 1000 factorials into an
> array and prints out the thousandth, which is 2568 digits long. It also runs
> incredibly quickly - under a second on my machine.
>
> HTH,
>
> Rob
>
> use strict;
> use warnings;
>
> use Math::BigInt;
>
> my $n = new Math::BigInt 1;
> my @f = $n; # Initialize factorial zero
>
> for my $i (1 .. 1000) {
> push @f, $n *= $i;
> }
>
> print $f[1000], "\n";
Wow! Slick!
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
