Ramanujan's constant: Difference between revisions
m
→Ramanujan's constant: cosmetic upgrade: use '×' not '*'
SqrtNegInf (talk | contribs) m (→Ramanujan's constant: cosmetic upgrade: use '×' not '*') |
|||
Line 593:
while (abs($mid - $exp) > ε) {
$sqr = sqrt($sqr);
if ($mid <= $exp) { $low = $mid; $acc
else { $high = $mid; $acc
$mid = ($low + $high) / 2;
}
Line 608:
for ^d {
given [ ($a + $g)/2, sqrt $a
$z -= (.[0] - $a)**2
$n += $n;
($a, $g) = @$_;
Line 619:
multi sqrt(FatRat $r --> FatRat) {
FatRat.new: sqrt($r.nude[0]
}
Line 634:
# calculation of 𝑒
sub postfix:<!> (Int $n) { (constant f = 1, |[\
sub 𝑒 (--> FatRat) { sum map { FatRat.new(1,.!) }, ^D }
Line 652:
constant 𝑒 = &𝑒();
my $Ramanujan = 𝑒**(π
say "Ramanujan's constant to 32 decimal places:\nActual: " ~
"262537412640768743.99999999999925007259719818568888\n" ~
Line 659:
say "Heegner numbers yielding 'almost' integers";
for 19, 96, 43, 960, 67, 5280, 163, 640320 -> $heegner, $x {
my $almost = 𝑒**(π
my $exact = $x³ + 744;
say format($exact, $almost);
|