Encontre o desafio original aqui

Desafio

Dado um número inteiro, Zno intervalo -2^31 < Z < 2^31, imprima o número de dígitos nesse número (na base 10).

Regras

Você não deve usar nenhuma função de string (no caso de sobrecarga, não deve passar uma string para funções que atuam como funções de string e de número inteiro). Você não tem permissão para armazenar o número como uma sequência.

Todas as funções matemáticas são permitidas.

Você pode receber entrada em qualquer base, mas a saída deve ser o comprimento do número na base 10.

Não conte o sinal de menos para números negativos. O número nunca será um decimal.

O zero é efetivamente um zero inicial, portanto pode ter zero ou um dígito.

Exemplos

Input > Output

-45 > 2
1254 > 4
107638538 > 9
-20000 > 5
0 > 0 or 1
-18 > 2

Ganhando

O menor código em bytes vence.

Mathematica, 13 bytes

IntegerLength

Bem...

Python 2 , 30 bytes

f=lambda x:x and-~f(abs(x)/10)

Experimente online!

Japonês , 5 3 bytes

ì l

Experimente online!

JavaScript (ES6), 19 bytes

f=n=>n&&f(n/10|0)+1

console.log(f(-45))       // 2
console.log(f(1254))      // 4
console.log(f(107638538)) // 9
console.log(f(-20000))    // 5
console.log(f(0))         // 0
console.log(f(-18))       // 2

Geléia , 3 2 bytes

1 byte economizado graças a Leaky Nun

DL

Experimente online!

Explicação

 L    Length of
D     Decimal expansion of input argument. Works for negative values too

Minha resposta do outro desafio ainda funciona:

Braquilog , 1 byte

l

Experimente online!

O lbuiltin está sobrecarregado, mas em números inteiros, leva o número de dígitos do número inteiro, ignorando o sinal.

Código de Chamada , 5 bytes

pqL_+

Nota: Esse é exatamente o mesmo código do outro desafio

Explicação

pqL_+ print(
    +   succ(
   _      floor(
  L        log_10(
pq           abs(
               input())))))

dc , 1 byte

Z

Experimente online!

Não usando um builtin, 18 bytes:

[d10/d0!=F]dsFxz1-

Experimente online!

SILOS , 41 bytes

readIO
i|
lblb
i/10
a+1
if i b
printInt a

Experimente online!

Retorna 1para 0.

Lua , 40 bytes

Porta da minha resposta python

print(math.log10(math.abs(10*...)+1)//1)

Experimente online!

Java 8, 61 59 39 37 bytes

n->n==0?1:(int)Math.log10(n<0?-n:n)+1

Porta da resposta C # de @TheLethalCoder , mas sem a Math.floorporque o uso de (int)-cast automaticamente / trunca decimais em Java.

Experimente online.

Resposta Java 7 recursiva ( 61 38 bytes ):

int c(int n){return n!=0?1+c(n/10):0;}

Porto da resposta C de @ Khaled.K .

Experimente online.

C #, 49 56 bytes

namespace System.Math{n=>n==0?1:Floor(Log10(Abs(n))+1);}

Alice , 16 bytes

/O
\I@/Hwa:].$Kq

Experimente online!

Explicação

/O
\I@/...

Isto é simplesmente uma estrutura para entrada numérica → processamento matemático → saída numérica.

O restante do código é o algoritmo real:

Hwa:].$Kq
H            Compute absolute value
 w   .$K     While the result is not zero do:
  a:           divide the number by 10
    ]          move the tape head one cell forward
        q    Get the position of the tape head

Python 2 , 48 bytes

-3 graças a ovs -1 graças a pizzapants

lambda x:math.log10(abs(10*x)+1)//1
import math

Experimente online!

C, 27 bytes

Experimente on-line

f(n){return n?1+f(n/10):0;}

C (gcc), 22 bytes

f(n){n=n?1+f(n/10):0;}

Usando matemática, 29 bytes

f(n){return 1+log10(abs(n));}

R , 40 bytes

function(x)max(ceiling(log10(abs(x))),0)

Experimente online!

MATL , 5 bytes

|OYAn

Experimente online!

Explicação

|     % Implicitly input a number. Absolute value
OYA   % Convert to array of decimal digits
n     % Length. Implicitly display

05AB1E , 6 bytes

Ä>T.nî

Experimente online! ou Experimente todos os testes

Ä      # Absolute value
 >     # Increment
  T.n  # Log base 10
     î # Round up

Gelatina , 5 bytes

A‘l⁵Ċ

Experimente online!

Oitava , 27 bytes

@(x)fix(log10(abs(x+~x)))+1

Experimente online!

PHP, 23 bytes

<?=-~log10(abs($argn));

Experimente online!

PowerShell, 52 51 bytes

$m=[math];$m::Floor($m::Log10($m::Abs($args[0])))+1

Agradecemos a Felipe por corrigir o problema com o Log10 e por salvar 1byte.

Todas as System.Mathchamadas são extremamente caras no PowerShell.

Usa o método de obter o Log10 do valor Abs da entrada e arredondá-lo para cima.

QBIC , 25 bytes

≈abs(:)>=1|b=b+1┘a=a/z}?b

Isso divide a entrada por 10 e controla quantas vezes podemos fazer isso até N<1.

Explicação:

≈abs(:)>=1| : gets cmd line input, 
            ≈ starts a while loop,
            abs() is literal QBasic code and is for cases with negative n
            | is the terminator to the WHILE-condition
b=b+1       Keep track of the # of divisions        
┘           Syntactic line break
a=a/z       Divide a by 10 (z==10 in QBIC)
}           End WHILE-loop body
?b          PRINT b

Bash , 50 bytes

a=$1;until [ $a -eq 0 ];{ let i++ a=a/10;};echo $i

Experimente online!

Nenhum comando string / array, apenas conte dígitos por divisão inteira.

Ruby , 33 bytes

->x{1+Math.log10(x.abs+0.1).to_i}

Experimente online!

bc , 6 bytes

length

Função incorporada.

Na verdade , 8 bytes

;0=+A╥Lu

Experimente online!

Explicação:

;0=+A╥Lu
;0=       is input equal to 0?
   +      add 1 if input is 0, else add 0
    A     absolute value
     ╥L   log base 10, floor
       u  increment

Este programa efetivamente calcula floor(log10(x))+1. Para lidar com o fato de log(0)ser indefinido (na verdade, ele retorna (-inf+nanj)uma maneira especial de dizer que não é definido), a entrada é incrementada se for 0anterior ao cálculo do comprimento. Assim, 0é considerado como tendo um comprimento de 1.

Pari / GP , 13 bytes

n->#digits(n)

Experimente online!

Ruby, 27 bytes

f=->x{x==0?0:1+f[x.abs/10]}

Como teste:

tests = [[-45 , 2],
         [1254 , 4],
         [107638538 , 9],
         [-20000 , 5],
         [0 , 0 ],
         [-18 , 2]]

tests.each do |i, o|
  p f.call(i) == o
end

Emite:

true
true
true
true
true
true

Perl 5 -p , 26 bytes

$\++;abs($_/=10)<1||redo}{

Experimente online!