Thử thách

Cho một số nguyên, Qtrong phạm vi -(2^100) ≤ Q ≤ 2^100, xuất số chữ số trong số đó (trong cơ sở 10).

Quy tắc

Có, bạn có thể lấy số làm chuỗi và tìm độ dài của 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 tính dấu trừ cho số âm. Số sẽ không bao giờ có dấu thập phân.

Số không có thể có một hoặc không có chữ số.

Giả sử đầu vào sẽ luôn là một số nguyên hợp lệ.

Ví dụ

Input > Output

-45 > 2
12548026 > 8
33107638153846291829 > 20
-20000 > 5
0 > 1 or 0

Chiến thắng

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

Brachylog , 1 byte

l

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

Một giải pháp dựng sẵn khác, nhưng giải pháp này có tên ngắn nhất (trừ khi ai đó tìm thấy một ngôn ngữ thực hiện nhiệm vụ này bằng byte không). Điều này sẽ hoạt động trong cả Brachylog 1 và Brachylog 2.

Đây là một chức năng đệ trình (liên kết TIO chứa đối số dòng lệnh khiến trình thông dịch chạy một chức năng riêng lẻ thay vì toàn bộ chương trình), một phần vì nếu không, chúng tôi sẽ phải sử dụng byte cho đầu ra, một phần vì cú pháp của Brachylog cho phủ định các con số hơi bất thường và làm cho chương trình này trở thành một hàm giải quyết bất kỳ đối số tiềm năng nào về cú pháp đầu vào.

Điều này thường làm phiền tôi rằng hầu hết các nội dung của Brachylog đều coi các số âm như số dương, nhưng thực tế cuối cùng lại có ích ở đây. Tôi đoán có những sự đánh đổi liên quan đến mọi ngôn ngữ chơi gôn.

Taxi , 1118 byte

1 is waiting at Starchild Numerology.Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to Chop Suey.Go to Chop Suey:n 1 r 1 l 4 r 1 l.Pickup a passenger going to Crime Lab.'-' is waiting at Writer's Depot.Go to Writer's Depot:n 1 l 3 l.Pickup a passenger going to Crime Lab.Go to Crime Lab:n 1 r 2 r 2 l.Switch to plan "n" if no one is waiting.-1 is waiting at Starchild Numerology.[n]0 is waiting at Starchild Numerology.Go to Starchild Numerology:s 1 r 1 l 1 l 2 l.Pickup a passenger going to Cyclone.Pickup a passenger going to Addition Alley.Go to Cyclone:e 1 l 2 r.[r]Pickup a passenger going to Cyclone.Pickup a passenger going to Addition Alley.Go to Zoom Zoom:n.Go to Addition Alley:w 1 l 1 r.Pickup a passenger going to Addition Alley.Go to Chop Suey:n 1 r 2 r.Switch to plan "f" if no one is waiting.Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:n 1 l 3 l 1 l.Go to Cyclone:n 1 l.Switch to plan "r".[f]Go to Addition Alley:n 1 l 2 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:n 1 r 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

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

Ung dung:

1 is waiting at Starchild Numerology.
Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to Chop Suey.
Go to Chop Suey: north 1st right 1st left 4th right 1st left.
Pickup a passenger going to Crime Lab.
'-' is waiting at Writer's Depot.
Go to Writer's Depot: north 1st left 3rd left.
Pickup a passenger going to Crime Lab.
Go to Crime Lab: north 1st right 2nd right 2nd left.
Switch to plan "n" if no one is waiting.
-1 is waiting at Starchild Numerology.
[n]
0 is waiting at Starchild Numerology.
Go to Starchild Numerology: south 1st right 1st left 1st left 2nd left.
Pickup a passenger going to Cyclone.
Pickup a passenger going to Addition Alley.
Go to Cyclone: east 1st left 2nd right.
[r]
Pickup a passenger going to Cyclone.
Pickup a passenger going to Addition Alley.
Go to Zoom Zoom: north.
Go to Addition Alley: west 1st left 1st right.
Pickup a passenger going to Addition Alley.
Go to Chop Suey: north 1st right 2nd right.
Switch to plan "f" if no one is waiting.
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park: north 1st left 3rd left 1st left.
Go to Cyclone: north 1st left.
Switch to plan "r".
[f]
Go to Addition Alley: north 1st left 2nd left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: north 1st right 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st left 1st right.

Giải trình:

Pickup the input and split it into individual characters
Pickup the value 1.
If the first character a hyphen, add -1. Otherwise, add 0.
Keep picking up characters and adding 1 until you're out.
Convert the running total to a string and print to stdout.

Toán học, 13 byte

IntegerLength

Có tích hợp ... trả lại 0cho 0.

đc, 3

?Zp

Lưu ý rằng thông thường dcyêu cầu số âm được đưa ra _thay vì thông thường hơn -. Tuy nhiên, trong trường hợp này, một trong hai có thể được sử dụng. Nếu -được đưa ra, sau đó dccoi đây là phép trừ trên một ngăn xếp trống, ném dc: stack empty, và sau đó tiếp tục với phần còn lại của số; Do đó, kết quả là không khác nhau.

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

?    # input
 Z   # measure length
  p  # print

Võng mạc , 2 byte

\d

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

Retina không thực sự biết số nào là số, vì vậy đầu vào được coi là một chuỗi và chúng tôi chỉ đơn giản là đếm các ký tự chữ số.

05AB1E , 2 byte

Äg

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

Ä  # Absolute value
 g # Length

Alice , 16 byte

//; 'q<)e
o!@i -

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

Giải trình

Tìm một bố cục nửa vời cho việc này là khá khó khăn. Tôi vẫn chưa hài lòng với nó vì không gian, <và ;, nhưng đây là điều tốt nhất tôi có thể làm bây giờ.

Độ dài chuỗi là một trong những phần tử tích hợp rất phổ biến không tồn tại trong Alice, bởi vì đầu vào của nó là một chuỗi và đầu ra của nó là một số nguyên (và tất cả các lệnh Alice đều là số nguyên cho số nguyên hoặc chuỗi thành chuỗi). Chúng ta có thể đo chiều dài của chuỗi bằng cách ghi nó vào băng ở chế độ Thông thường và sau đó tìm kết thúc của chuỗi ở chế độ Hồng y.

/      Reflect to SE. Switch to Ordinal. While in Ordinal mode, the IP will bounce
       diagonally up and down through the code.
!      Store an implicit empty string on the tape, does nothing.
;      Discard an implicit empty string, does nothing.
i      Read all input as a string.
'-     Push "-".
<      Set the horizontal component of the IP's direction to west, so we're bouncing
       back now.
-      Remove substring. This deletes the minus sign if it exists.
'i     Push "i".
;      Discard it again.
!      Store the input, minus a potential minus sign, on the tape.
/      Reflect to W. Switch to Cardinal. The IP immediately wraps to the
       last column.
e)     Search the tape to the right for a -1, which will be found at the end
       of the string we stored there.
<      Does nothing.
q      Push the tape head's position, which is equal to the string length.
'<sp>  Push " ".
;      Discard it again.
/      Reflect to NW. Switch to Ordinal. The IP immediately bounces off
       the top boundary to move SW instead.
o      Implicitly convert the string length to a string and print it.
       IP bounces off the bottom left corner, moves back NE.
/      Reflect to S. Switch to Cardinal.
!      Store an implicit 0 on the tape, irrelevant.
       The IP wraps back to the first line.
/      Reflect to NE. Switch to Ordinal. The IP immediately bounces off
       the top boundary to move SE instead.
@      Terminate the program.

Tôi cũng đã thử chăm sóc dấu trừ trong chế độ Cardinal với H(giá trị tuyệt đối), nhưng công tắc chế độ bổ sung luôn kết thúc đắt hơn trong các nỗ lực của tôi.

PHP, 23 byte

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

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

Nhật ký cơ sở 10 của giá trị tuyệt đối cộng với một lần chuyển sang int

cho số không vì log10 đầu vào trả lại INFđược hiểu là sai

Cách tốt hơn là thay thế $argnbằng $argn?:1+3 byte

PHP, 27 byte

<?=strlen($argn)-($argn<0);

độ dài chuỗi trừ boolean thấp hơn 0

+2 byte để so sánh chuỗi $argn<"0"

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

PHP, 32 byte

<?=preg_match_all("#\d#",$argn);

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

Regex đếm tất cả các chữ số

35 byte

<?=strlen($argn)-strspn($argn,"-");

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

độ dài chuỗi trừ đi số -

strspn

Fortran 95 (gfortran), 121 96 95 byte

program c
character b
call get_command_argument(1,b,length=i)
print*,i-index(b,'-')
end program

Giải thích:
Trừ chỉ số của dấu '-' từ độ dài của đối số.
Mảng bắt đầu từ 1 trong Fortran và index () trả về 0 nếu không tìm thấy biểu tượng.

Chỉnh sửa: Chuyển sang số nguyên ẩn "i", cũng hợp nhất getter đối số.

Chỉnh sửa: -1 byte nhờ @Tsathoggua

PowerShell, 24 byte

"$args"-replace'-'|% Le*

ép giá trị "tuyệt đối" của đầu vào lập luận thành một chuỗi và nhận thuộc tính 'độ dài' của chuỗi.

1 byte ngắn hơn "".Length

cho đến khi ai đó tìm ra cách tốt hơn để có được số abs trong PS thì điều này có thể ngắn như nó sẽ nhận được.

05AB1E , 2 byte

þg

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

   # Implicit input [a]...
þ  # Only the digits in [a]...
 g # length of [a]...
   # Implicit output.

Brainfuck , 37 byte

-[+>+[+<]>+]>->,[-<->]<[>+>],[<+>,]<.

Đầu ra là giá trị byte.

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

Giải trình

-[+>+[+<]>+]>->  Constant for 45 (from esolangs wiki)
,                Read a byte of input
[-<->]           Subtract that byte from 45
<[>+>]           If the result is nonzero then increment a cell and move to the right
                 (0 means it was a minus; so not counted)
,[<+>,]          Read a byte and increment the cell to its left until EOF is reached
<.               Print the cell that was being incremented

Ruby, 15 11 + 1 = 16 12 byte

Sử dụng -ncờ.

p~/$/-~/\d/

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

Giải trình

                  # -n flag gets one line of input implicitly
p                 # Print
 ~/$/             # Position of end of line (aka string length) in input
     -            # minus
      ~/\d/       # Position of first digit (1 if negative number, 0 otherwise)

Thạch , 2 byte

DL

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

Điều này đúng theo những gì được hỏi:

DL - Main link number n         e.g. -45
D  - convert to a decimal list       [-4,-5]
 L - get the length                  2

CJam , 5 byte

q'--,

Chuỗi dựa.

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

9 byte cho một giải pháp hoàn toàn dựa trên toán học:

riz)AmLm]

Hoặc 5 khác với chuyển đổi cơ sở:

riAb,

Japt , 5 byte

a s l

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

Giải trình

 a s l
Ua s l
Ua     # take the absolute value of the input
   s   # and turn it into a string
     l # and return its length

RProgN 2 , 2 byte

âL

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

Đơn giản chỉ cần lấy giá trị tuyệt đối của đầu vào và đếm các chữ số.

JavaScript (ES6), 27 26 25 24 byte

Đưa đầu vào dưới dạng một chuỗi.

s=>s.match(/\d/g).length

• Lưu hai byte nhờ Arnauld.

JavaScript (ES6), 23 byte

s=>`${s>0?s:-s}`.length

Cách tiếp cận khác nhau để trả lời của Shaggy .

Java, 30 24 byte

i->(""+i.abs()).length()

Giả sử ilà a BigInteger. Ngoài ra, loại được ngữ cảnh hóa, do đó không cần nhập, như được hiển thị trong mã kiểm tra.

Kiểm tra

// No imports
class Pcg120897 {
  public static void main(String[] args) {
    java.util.function.ToIntFunction<java.math.BigInteger> f =
        // No full class declaration past here
        i->(""+i.abs()).length()
        // No full class declaration before here
      ;
    System.out.println(f.applyAsInt(new java.math.BigInteger("-1267650600228229401496703205376"))); // -(2^100)
    System.out.println(f.applyAsInt(new java.math.BigInteger("1267650600228229401496703205376"))); // (2^100)
  }
}

Tiết kiệm

• 30 -> 24 byte: nhờ @cliffroot

Python 2 , 31 22 byte

-9 byte nhờ Rod.

lambda i:len(`abs(i)`)

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

Brain-Flak , 63 byte

([({})]((((()()()()())){}{})){}{})((){[()](<{}>)}{})([{}][]<>)

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

Đây là 62 byte mã và +1 byte cho -acờ.

Tôi đã thử hai cách tiếp cận khác, nhưng tiếc là cả hai đều dài hơn:

([]<({}[((((()()()()())){}{})){}{}]<>)((){[()](<{}>)}{})>)({}[{}])

([]<>)<>({}<>)((((([][]())){}{})){}{}[{}])((){[()](<{}>)}{})([{}]{})

Đây phải là một câu trả lời rất ngắn. Trên thực tế, nếu chúng tôi không phải hỗ trợ số âm, chúng tôi chỉ có thể làm:

([]<>)

Nhưng chúng ta phải so sánh đầu vào đầu tiên với 45 (ASCII -) trước, đây là phần lớn số byte của câu trả lời này.

Một giải pháp số học có thể ngắn hơn.

Ruby, 20 byte

->a{a.abs.to_s.size}

Bình thường, 4 byte

l`.a

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

Tất cả các trường hợp thử nghiệm

R, 18 byte

nchar(abs(scan()))

Alice , 10 byte (không cạnh tranh)

 /d/
O@IHc

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

Đây là một giải pháp không cạnh tranh, bởi vì tại thời điểm thử thách này được đăng, lệnh cđã được đưa ra trong trình thông dịch chính thức (và chỉ: D). Martin Ender đã sửa nó trong khi đó, vì vậy điều này hiện đang hoạt động.

Giải trình

Con trỏ lệnh đi qua hai gương ( /) nhiều lần, do đó có thể hơi khó theo dõi. Tôi sẽ cố gắng giải thích rõ ràng nhất có thể, bằng cách sử dụng các hướng hồng y (ví dụ: N lên, SW ở bên trái ...). Tôi sẽ gọi /1gương ngoài cùng bên trái và gương /2ngoài cùng bên phải.

Command    Direction    Comment
               E        Execution starts from the upper-left corner going right
   /1        E → SE     Passing through the mirror changes direction and switches
                        to ordinal mode (string operations)
   I        SE → NE     Push the input string to the stack, then bounce against
                        the bottom of the code
   /2       NE → S      Back to cardinal mode (numeric operations)
   H           S        Pop n, push abs(n). Execution wraps from bottom to top
   /2        S → SE     Ordinal mode again
   c        SE → NW     Pop s, push each char of s separatedly. Bounce against
                        the bottom right corner
   /2       NW → W      Cardinal mode
   d           W        Push the depth of the stack (which is now equal to 
                        the number of characters in abs(input))
   /1     W → NW → SW   Pass through the mirror, then bounce agains the top
   O        SW → NE     Output the result, then bounce on the bottom left corner
   /1       NE → S      Last mirror, I promise
   @           S        Terminate execution

GNU Make , 78 byte

Phong cách bắt buộc:

$(eval T=$1)$(foreach D,$(shell seq 9),$(eval T=$(subst $D,? ,$T)))$(words $T)

Kiểu chức năng, 113 byte:

$(eval 2?=$(shell seq 9))$(if $2,$(call $0,$(subst $(word 1,$2),? ,$1),$(wordlist 2,$(words $2),$2)),$(words $1))

Pure Make, 83 byte:

$(eval T=$1)$(foreach D,0 1 2 3 4 5 6 7 8 9,$(eval T=$(subst $D,? ,$T)))$(words $T)

C ++, 80 76 byte

#include<string>
int main(int,char**c){printf("%d",strlen(c[1])-(*c[1]<46));}

In độ dài của đối số, trừ 1 nếu ký tự đầu tiên là dấu trừ vì boolđảm bảo chuyển đổi thành 1nếu truehoặc 0nếufalse

• 4 byte nhờ @Squidy đã chỉ ra tôi có thể sử dụng <46thay vì =='-'và để trì hoãn mảng thay vì[]

TI-Basic (TI-84 Plus CE, OS 5.2+), 6 byte

length(toString(abs(Ans

TI-Basic là ngôn ngữ được mã hóa; length(và toString(là hai byte mỗi.

Ansđược sử dụng làm đầu vào ngầm định; giá trị cuối cùng (duy nhất) của dòng được trả lại hoàn toàn.

Khá đơn giản, lấy giá trị tuyệt đối để thoát khỏi dấu trừ, chuyển đổi thành chuỗi, trả về độ dài của chuỗi.

Một cách tiếp cận toán học 6 byte không hoạt động cho 0:

1+log(abs(Ans

Pari / GP , 13 byte

n->#digits(n)

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