#!/usr/bin/env perl

use strict;
use warnings;

use Math::Trig;
use Math::BigRat lib => 'GMP';
use Data::Dumper;

BEGIN {
  push @INC, '..'
}

use Manticore::Num::Trig;
use Manticore::Num::ContinuedFraction;

my $pi = Math::BigRat->new(3);

my $poly = 30;

for(1..5) {
$pi = $pi + Manticore::Num::Trig::proxSin($poly,$pi);
print "===\ns: $pi\n";
$pi = Manticore::Num::ContinuedFraction::roundSteps($poly,$pi);
print "r: $pi\n";
}

my $pi1 = Manticore::Num::ContinuedFraction->new($pi);

$pi = $pi + Manticore::Num::Trig::proxSin($poly+2,$pi);
print "===\ns: $pi\n";
$pi = Manticore::Num::ContinuedFraction::roundSteps($poly,$pi);
print "r: $pi\n";

my $pi2 = Manticore::Num::ContinuedFraction->new($pi);

#print $pi->child();
#
#print Data::Dumper::Dumper($pi);

my $c = $pi1->commonk($pi2, 25);

print "[[ @$c ]]\n";