Rosetta Code

Arithmetic-geometric mean: Difference between revisions

Page Discussion

Arithmetic-geometric mean (view source)

Revision as of 04:17, 1 January 2016

64 bytes removed ,  8 years ago
→‎{{header|Perl 6}}: simplify
(→‎{{header|Perl 6}}: use the "approximately equal" operator)
Line 1,305:
=={{header|Perl 6}}==
<lang perl6>sub agm( $a is copy, $g is copy ) {
($a, $g) given= ($a + $g)/2, sqrt $a * $g {until $a ≅ $g;▼
loop {
return $a;
▲ given ($a + $g)/2, sqrt $a * $g {
return $a if .[0] ≅ .[1];
($a, $g) = @$_;
}
}
}
Grondilu
1,934

edits

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