RosettaCodeData/Task/Nth-root/Raku/nth-root.raku

sub infix:<√>($n, $A) {
    .tail given $A / $n, { (($n-1) * $_+ $A / ($_** ($n-1))) / $n } ... * ≅ *;
}

use Test;
plan 9;
is-approx ($_√pi)**$_, pi for 2 .. 10;
Data update 2023-10-02 18:11:16 -07:00			`sub infix:<√>($n, $A) {`
			`.tail given $A / $n, { (($n-1) * $_+ $A / ($_** ($n-1))) / $n } ... * ≅ *;`
Initial data commit 2023-07-01 11:58:00 -04:00			`}`

Data update 2023-10-02 18:11:16 -07:00			`use Test;`
			`plan 9;`
			`is-approx ($_√pi)**$_, pi for 2 .. 10;`