gistfile1.txt

sub has-converged($x, $y) {
    abs($x-$y) < 1e-8*$y;
}

sub my-sqrt($n) {
    my @approximations = 1, -> $x { 0.5 * ($x + $n/$x) } ... &has-converged;
    @approximations[*-1];
}

for 1..10 -> $n {
    say "$n: { my-sqrt($n) } (type { my-sqrt($n).WHAT.gist })";
}