Tìm thử thách ban đầu tại đây

Thử thách

Cho một số nguyên, Ztrong phạm vi -2^31 < Z < 2^31, xuất số chữ số trong số đó (trong cơ sở 10).

Quy tắc

Bạn không được sử dụng bất kỳ hàm chuỗi nào (trong trường hợp quá tải, bạn không được truyền chuỗi vào các hàm đóng vai trò là cả hàm chuỗi và số nguyên). Bạn không được phép lưu trữ số dưới dạng chuỗi.

Tất cả các chức năng toán học được cho phép.

Bạn có thể lấy đầu vào trong bất kỳ cơ sở nào, nhưng đầu ra phải là độ dài của số trong cơ sở 10.

Không đếm dấu trừ cho số âm. Số sẽ không bao giờ là số thập phân.

Số 0 thực sự là một số 0 đứng đầu, vì vậy nó có thể có 0 hoặc một chữ số.

Ví dụ

Input > Output

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

Chiến thắng

Mã ngắn nhất trong byte thắng.

Toán học, 13 byte

IntegerLength

Tốt...

Python 2 , 30 byte

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

Hãy thử trực tuyến!

Japt , 5 3 byte

ì l

Hãy thử trực tuyến!

JavaScript (ES6), 19 byte

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

Thạch , 3 2 byte

Lưu 1 byte nhờ Leaky Nun

DL

Hãy thử trực tuyến!

Giải trình

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

Câu trả lời của tôi từ thử thách khác vẫn hoạt động:

Brachylog , 1 byte

l

Hãy thử trực tuyến!

Nội dung lbị quá tải, nhưng trên các số nguyên, nó lấy số chữ số của số nguyên, bỏ qua dấu.

Mã chuỗi , 5 byte

pqL_+

Lưu ý: Đây chính xác là mã giống như từ thử thách khác

Giải trình

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

dc , 1 byte

Z

Hãy thử trực tuyến!

Không sử dụng nội dung, 18 byte:

[d10/d0!=F]dsFxz1-

Hãy thử trực tuyến!

Silos , 41 byte

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

Hãy thử trực tuyến!

Trả lại 1cho 0.

Lua , 40 byte

Cổng từ câu trả lời python của tôi

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

Hãy thử trực tuyến!

Java 8, 61 59 39 37 byte

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

Cổng từ câu trả lời C # của @TheLethalCoder , nhưng không có Math.floorvì sử dụng một(int) -cast tự động sàn / cắt bớt số thập phân trong Java.

Hãy thử trực tuyến.

Câu trả lời đệ quy Java 7 ( 61 38 byte ):

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

Cổng của @ Khaled.K 's C trả lời .

Hãy thử trực tuyến.

C #, 49 56 byte

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

Alice , 16 byte

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

Hãy thử trực tuyến!

Giải trình

/O
\I@/...

Đây chỉ đơn giản là một khung cho đầu vào số → xử lý toán học → đầu ra số.

Phần còn lại của mã là thuật toán thực sự:

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 byte

-3 nhờ vào trứng -1 nhờ pizzapants

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

Hãy thử trực tuyến!

C, 27 byte

Thử trực tuyến

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

C (gcc), 22 byte

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

Sử dụng toán học, 29 byte

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

R , 40 byte

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

Hãy thử trực tuyến!

MATL , 5 byte

|OYAn

Hãy thử trực tuyến!

Giải trình

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

05AB1E , 6 byte

Ä>T.nî

Hãy thử trực tuyến! hoặc Thử tất cả các bài kiểm tra

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

Thạch , 5 byte

A‘l⁵Ċ

Hãy thử trực tuyến!

Octave , 27 byte

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

Hãy thử trực tuyến!

PHP, 23 byte

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

Hãy thử trực tuyến!

PowerShell, 52 51 byte

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

Cảm ơn Felipe vì cả hai đã khắc phục Sự cố với Log10 và cung cấp tiết kiệm 1byte.

Bất kỳ System.Mathcuộc gọi nào đều cực kỳ đắt đỏ trong PowerShell.

Sử dụng phương pháp lấy Log10 của Giá trị abs của đầu vào và làm tròn số đó lên.

QBIC , 25 byte

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

Điều này chia đầu vào cho 10 và theo dõi số lần chúng ta có thể làm điều này cho đến khi N<1.

Giải trình:

≈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 byte

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

Hãy thử trực tuyến!

Không có lệnh chuỗi / mảng, chỉ đếm các chữ số bằng cách chia số nguyên.

Ruby , 33 byte

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

Hãy thử trực tuyến!

bc , 6 byte

length

Chức năng tích hợp.

Trên thực tế , 8 byte

;0=+A╥Lu

Hãy thử trực tuyến!

Giải trình:

;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

Chương trình này tính toán hiệu quả floor(log10(x))+1. Để đối phó với log(0)việc không được xác định (thực ra nó trả về (-inf+nanj)đó là một cách đặc biệt để nói rằng nó không được xác định), đầu vào được tăng lên nếu 0trước khi tính toán độ dài. Vì vậy, 0được coi là có chiều dài 1.

Pari / GP , 13 byte

n->#digits(n)

Hãy thử trực tuyến!

Ruby, 27 byte

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

Như một bài kiểm tra:

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

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

Nó xuất ra:

true
true
true
true
true
true

Perl 5 -p , 26 byte

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

Hãy thử trực tuyến!