#!/usr/bin/perl -w

#

# Someone was wrong on the internet.

# I cannot abide someone being wrong on the internet.

#

# (C)2025 Pegasus Epsilon <pegasus@pimpninjas.org>

# Educational Purposes Only.

use strict;

use Math::BigFloat;

use Math::BigInt;

use v5.10;

my $d = Math::BigFloat->new(1);

my $t = Math::BigFloat->new(3);

my $o = Math::BigFloat->new(0);

my $x = Math::BigFloat->new(0);

my $a = Math::BigInt->new(2);

$d->accuracy($a);

$t->accuracy($a);

$o->accuracy($a);

$x->accuracy($a);

# calculated by hand to be approximately 3.278031523596059366055947260535156966

for (;;) { # ever

$x = $t**$t;

say $t;

say "$a, $x";

if ($x < 49 && $o != $t) { ($o, $t) = ($t, $t + $d) }

elsif ($x > 49 && $o != $t) { ($o, $t, $d) = ($t, $t - $d, $d / 2) }

else {

$a++;

$d->accuracy($a);

$t->accuracy($a);

$o->accuracy($a);

$x->accuracy($a);

$o = $d;

}

}