Integer roots: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Avoided shadowing of `sequence` (standard Traversable function name)) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: syntax tweak) |
||
Line 618: | Line 618: | ||
my $endpoint = { $^x ** $p <= $n |
my $endpoint = { $^x ** $p <= $n |
||
and ($^x + 1) ** $p > $n }; |
and ($^x + 1) ** $p > $n }; |
||
min (+$guess, $iterator ... $endpoint)[*-1, *-2]; |
|||
} |
} |
||