Integer roots: Difference between revisions

(formerly Perl 6)

{{trans|Python}}

<syntaxhighlight lang="raku" line>sub integer_root ( Int $p where * >= 2, Int $n --> Int ) {

my Int $d = $p - 1;