Integer roots: Difference between revisions

m
m (→‎{{header|Haskell}}: Avoided shadowing of `sequence` (standard Traversable function name))
m (→‎{{header|Perl 6}}: syntax tweak)
Line 618:
my $endpoint = { $^x ** $p <= $n
and ($^x + 1) ** $p > $n };
return [min] (+$guess, $iterator ... $endpoint)[*-1, *-2];
}
 
2,392

edits