Re: phi div by 0 error

[perlaintdead]

in reply to phi div by 0 error

heres my new shiny one if you are intersted. you might have to adjust the for loop if you don't want to wait a few hours

use strict;
use warnings;

use Math::BigFloat;
use Math::BigInt;

my @list;
my $a = Math::BigInt->new(1);
my $b = Math::BigInt->new(1);
my $c = Math::BigInt->new(0);

for(my $i = 0;$i < 1000;$i++){

    $c = $a->badd($b);
    $a = $b;
    $b = $c;
    
    push @list, $c;
    
}

my $Evens = -2;
my $Odds  = -1;
my $Interval = 2;


for(my $i = 0;$i < ($#list/2);$i++){
    
    $Odds  += $Interval;
    $Evens += $Interval;
    
    my $x = Math::BigFloat->new($list[$Odds]);
    $x->bround(100000);
    print $x->bdiv($list[$Evens]);
    print "\n";
    
}