gistfile1.txt

#!/usr/bin/env perl6

multi sub ndr(Real $value, Int $radix = 10) { 
    1 + floor log (1 max abs $value), $radix
}

multi sub ndr(Real @values, Int $radix = 10) {
   1 + floor log (1 max [max] @values>>.abs), $radix; 
}

say ndr -1234;
say ndr 0xAAAA, 16;
say ndr 0b1010111, 2;

my Real @a = (1,100,1000,-10000);
say ndr (@a, 10);