Nth root: Difference between revisions
→{{header|Raku}}: create an infix operator and use a sequence
m (→{{header|Bracmat}}: added {{trans|C}}) |
(→{{header|Raku}}: create an infix operator and use a sequence) |
||
Line 3,260:
(formerly Perl 6)
<syntaxhighlight lang="raku" line>sub
▲ my $x1 = (($n-1) * $x0 + $A / ($x0 ** ($n-1))) / $n;
}
use Test;
plan 9;
is-approx ($_√pi)**$_, pi for 2 .. 10;</syntaxhighlight>
=={{header|RATFOR}}==
|