Integer roots: Difference between revisions
→{{header|Raku}}: mark as to be improved instead of broken
(→{{header|Raku}}: mark as to be improved instead of broken) |
|||
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;
|