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