Integer roots: Difference between revisions
Content added Content deleted
(Added Ada solution) |
|||
Line 1,119: | Line 1,119: | ||
(formerly Perl 6) |
(formerly Perl 6) |
||
{{trans|Python}} |
{{trans|Python}} |
||
{{broken}} |
|||
<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; |