Encuentra el desafío original aquí

Desafío

Dado un número entero, Zen el rango -2^31 < Z < 2^31, genera el número de dígitos en ese número (en base 10).

Reglas

No debe usar ninguna función de cadena (en el caso de sobrecarga, no debe pasar una cadena a funciones que actúen como funciones de cadena y de número entero). No está permitido almacenar el número como una cadena.

Todas las funciones matemáticas están permitidas.

Puede tomar la entrada en cualquier base, pero la salida debe ser la longitud del número en la base 10.

No cuente el signo menos para números negativos. El número nunca será un decimal.

El cero es efectivamente un cero inicial, por lo que puede tener cero o un dígito.

Ejemplos

Input > Output

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

Victorioso

El código más corto en bytes gana.

Mathematica, 13 bytes

IntegerLength

Bien...

Python 2 , 30 bytes

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

Pruébalo en línea!

Japt , 5 3 bytes

ì l

Pruébalo en línea!

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

Jalea , 3 2 bytes

1 byte guardado gracias a Leaky Nun

DL

Pruébalo en línea!

Explicación

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

Mi respuesta del otro desafío todavía funciona:

Brachylog , 1 byte

l

Pruébalo en línea!

La lconstrucción está sobrecargada, pero en los enteros, toma el número de dígitos del entero, ignorando el signo.

Chaincode , 5 bytes

pqL_+

Nota: este es exactamente el mismo código que el del otro desafío

Explicación

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

dc , 1 byte

Z

Pruébalo en línea!

Sin usar un builtin incorporado, 18 bytes:

[d10/d0!=F]dsFxz1-

Pruébalo en línea!

SILOS , 41 bytes

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

Pruébalo en línea!

Devoluciones 1para 0.

Lua , 40 bytes

Puerto de mi respuesta de Python

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

Pruébalo en línea!

Java 8, 61 59 39 37 bytes

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

Puerto de la respuesta C # de @TheLethalCoder , pero sin el Math.floorporque usar un (int)-cast automáticamente pisos / trunca los decimales en Java.

Pruébalo en línea.

Respuesta recursiva de Java 7 ( 61 38 bytes ):

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

La respuesta C del puerto de @ Khaled.K .

Pruébalo en línea.

C #, 49 56 bytes

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

Alice , 16 bytes

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

Pruébalo en línea!

Explicación

/O
\I@/...

Esto es simplemente un marco para la entrada numérica → procesamiento matemático → salida numérica.

El resto del código es el 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 gracias a ovs -1 gracias a pizzapants

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

Pruébalo en línea!

C, 27 bytes

Probar en línea

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

C (gcc), 22 bytes

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

Usando matemáticas, 29 bytes

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

R , 40 bytes

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

Pruébalo en línea!

MATL , 5 bytes

|OYAn

Pruébalo en línea!

Explicación

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

05AB1E , 6 bytes

Ä>T.nî

Pruébalo en línea! o prueba todas las pruebas

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

Jalea , 5 bytes

A‘l⁵Ċ

Pruébalo en línea!

Octava , 27 bytes

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

Pruébalo en línea!

PHP, 23 bytes

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

Pruébalo en línea!

PowerShell, 52 51 bytes

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

Gracias a Felipe por solucionar el problema con Log10 y proporcionar un ahorro de 1byte.

Cualquier System.Mathllamada es extremadamente costosa en PowerShell.

Utiliza el método para obtener el Log10 del Valor Abs de la entrada y redondearlo.

QBIC , 25 bytes

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

Esto divide la entrada por 10 y realiza un seguimiento de cuántas veces podemos hacer esto hasta N<1.

Explicación:

≈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

Pruébalo en línea!

Sin comando string / array, solo cuenta dígitos por división de enteros.

Rubí , 33 bytes

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

Pruébalo en línea!

a. C. , 6 bytes

length

Función incorporada

En realidad , 8 bytes

;0=+A╥Lu

Pruébalo en línea!

Explicación:

;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 efectivamente calcula floor(log10(x))+1. Para lidiar con log(0)ser indefinido (en realidad devuelve, (-inf+nanj)que es una forma especial de decir que no está definido), la entrada se incrementa si es 0anterior al cálculo de la longitud. Por lo tanto, 0se considera que tiene una longitud de 1.

Pari / GP , 13 bytes

n->#digits(n)

Pruébalo en línea!

Rubí, 27 bytes

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

Como prueba:

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

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

Produce:

true
true
true
true
true
true

Perl 5 -p , 26 bytes

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

Pruébalo en línea!