Rosetta Code

Arithmetic-geometric mean/Calculate Pi: Difference between revisions

Page Discussion

Arithmetic-geometric mean/Calculate Pi (view source)

Revision as of 07:20, 21 October 2022

121 bytes removed ,  1 year ago
→‎{{header|Raku}}: simplification
(added Pascal example)
(→‎{{header|Raku}}: simplification)
Line 1,405:
 
multi sqrt(Int $n) {
my $guess = (10**($n.chars div 2);, { ($_ + $n div $_) div 2 } ... * == *).tail
my $iterator = { ( $^x + $n div ($^x) ) div 2 };
my $endpoint = { $^x == $^y|$^z };
return min (+$guess, $iterator … $endpoint)[*-1, *-2];
}
 
multi sqrt(FatRat $r --> FatRat) {
return FatRat.new:
sqrt($r.nude[0] * 10**(number-of-decimals*2) div $r.nude[1]),
10**number-of-decimals;
Line 1,420 ⟶ 1,417:
my FatRat $g = sqrt(1/2.FatRat);
my $z = .25;
 
for ^10 {
given [ ($a + $g)/2, sqrt($a * $g) ] {
$z -= (.[0] - $a)**2 * $n;
$n += $n;
($a, $g) = @$_;
say ($a ** 2 / $z).substr: 0, 2 + number-of-decimals;
}
}</syntaxhighlight>
{{out}}
Grondilu
1,934

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/332413"