Integer roots: Difference between revisions
→{{header|Raku}}: fix end test detection
(→{{header|Raku}}: mark as to be improved instead of broken) |
(→{{header|Raku}}: fix end test detection) |
||
Line 1,119:
(formerly Perl 6)
{{trans|Python}}
<syntaxhighlight lang="raku" line>sub integer_root ( Int $p where * >= 2, Int $n --> Int ) {
my Int $d = $p - 1;
Line 1,125 ⟶ 1,124:
10**($n.chars div $p),
{ ( $d * $^x + $n div ($x ** $d) ) div $p } ...
).tail(2).min;
}
| |||