6 lines
175 B
Raku
6 lines
175 B
Raku
sub digroot ($r, :$base = 10) {
|
|
my &sum = { [+](.comb.map({:36($_)})).base($base) }
|
|
|
|
return .[*-1], .elems-1
|
|
given $r.base($base), &sum ... { .chars == 1 }
|
|
}
|