Các thách thức

Cho hai số nguyên là đầu vào ( xvà y), đầu ra xdưới dạng một chuỗi có càng nhiều số 0 đứng đầu cần thiết để nó có yký tự dài mà không có dấu.

Quy tắc

• Nếu xcó nhiều hơn ychữ số, xuất ra xdưới dạng chuỗi mà không sửa đổi.

• Đầu ra dưới dạng số nguyên không được chấp nhận, ngay cả khi không có số 0 đứng đầu.

• Khi xâm, giữ nguyên trạng -và hoạt động trên giá trị tuyệt đối.

• Phủ định ynên được coi là 0, nghĩa là bạn xuất ra nguyên trạng x(nhưng dưới dạng chuỗi)

Ví dụ:

IN: (1,1)   OUT: "1"
IN: (1,2)   OUT: "01"
IN: (10,1)  OUT: "10"
IN: (-7,3)  OUT: "-007"
IN: (-1,1)  OUT: "-1"
IN: (10,-1) OUT: "10"
IN: (0,0)   OUT: "0"
IN: (0,1)   OUT: "0"
IN: (0,4)   OUT: "0000"

Mã ngắn nhất trong byte thắng, áp dụng sơ hở tiêu chuẩn.

Japt , 13 8 byte

Lấy đầu vào đầu tiên ( x) dưới dạng một chuỗi.

®©ùTV}'-

Thử nó

Đã lưu 5 byte lớn nhờ ETHproductions.

Giải trình

Đầu vào ngầm định của chuỗi U=xvà số nguyên V=y.

® }'-chia Uthành một mảng trên biểu tượng dấu trừ, ánh xạ lên nó và nối lại thành một chuỗi có biểu tượng dấu trừ.

©là logic AND ( &&) vì vậy nếu phần tử hiện tại là true (một chuỗi không trống) thì pad left ( ù) với 0 ( T) theo chiều dài V.

Bình thường , 12 byte

%"%0*d",+E>0

Hãy thử nó ở đây!

Python 2 , 29 byte

lambda x,y:x.zfill(y+(x<'.'))

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

Chỉ cần str.zfillđến rất gần.

05AB1E , 11 10 byte

Đầu vào được đưa ra là amount_of_digits, number

ÎIÄg-×ì'-†

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

Giải trình

Î            # push 0 and first input
 IÄ          # push the absolute value of the second input
   g         # length
    -        # subtract, (input1-len(abs(input2))
     ×       # repeat the zero that many times
      ì      # prepend to the second input
       '-†   # move any "-" to the front

Python, 29 byte

Lấy đầu vào là f(x,y). Sử dụng %toán tử Python .

lambda x,y:'%0*d'%(y+(x<0),x)

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

C #, 56 byte

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

a=>b=>(a<0?"-":"")+((a<0?-a:a)+"").PadLeft(b<0?0:b,'0')

Java (OpenJDK 8) , 47 byte

x->y->"".format("%0"+((y<1?1:y)-(x>>31))+"d",x)

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

Lúc đầu tôi nghĩ, dễ dàng, tối đa 30 ký tự (khá ngắn khi thao tác các chuỗi trong Java). Sau đó, các ngoại lệ đã xảy ra.

JavaScript (ES6), 42

Đệ quy, tham số theo thứ tự ngược lại, đầu tiên y sau đó x. Và cà ri

y=>r=x=>x<0?'-'+r(-x):`${x}`.padStart(y,0)

Kiểm tra

var F=
y=>r=x=>x<0?'-'+r(-x):`${x}`.padStart(y,0)

;`IN: (1,1)   OUT: "1"
IN: (1,2)   OUT: "01"
IN: (10,1)  OUT: "10"
IN: (-7,3)  OUT: "-007"
IN: (-1,1)  OUT: "-1"
IN: (10,-1) OUT: "10"
IN: (0,0)   OUT: "0"
IN: (0,1)   OUT: "0"
IN: (0,4)   OUT: "0000"`
.split(`\n`).map(r => r.match(/[-\d]+/g))
.forEach(([x,y,k])=>{
  o = F(y)(x)
  ok = o == k
  console.log(ok?'OK':'KO',x,y,'->', o)
})

Python 3.6 , 28 37 byte

lambda x,y:f'{x:0{(y,0)[y<0]+(x<0)}}'

Hãy thử trực tuyến! (Trường hợp thử nghiệm từ câu trả lời của Colera Su)

Tận dụng cách mới để định dạng chuỗi trong python 3.6

+9 byte để xử lý y<0

bash, 27 , 25 byte

-2 byte nhờ Bruce Forte

printf %0$[$2+($1<0)]d $1

thử trực tuyến

Husk , 12 byte

Ö±Ωo≥⁰#±:'0s

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

Giải trình

Ö±Ωo≥⁰#±:'0s  Inputs are y=4 and x=-20
           s  Convert x to string: "-20"
        :'0   Prepend '0'
  Ω           until
      #±      the number of digits
   o≥⁰        is at least y: "00-20"
Ö±            Sort by is-digit: "-0020"
              Print implicitly.

R, 56 48 byte

function(x,y)sprintf(paste0("%0",y+(x<0),"d"),x)

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

-8 byte nhờ djhurio

Giải trình

• sprintf("%0zd",x)trả về xdưới dạng một chuỗi được đệm bằng các số không có độ dàiz
• paste0("%0",y+(x<0),"d")xây dựng chuỗi "%0zd", nơi zlà y, cộng với 1 nếu xlà nhỏ hơn không
• Nếu znhỏ hơn số chữ số trong x, xđược in dưới dạng chuỗi

Alice , 23 byte

/oRe./'+Ao
\I*tI&0-R$@/

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

Đầu vào phải được phân tách theo dòng với số trên dòng đầu tiên và chiều rộng trên dòng thứ hai.

Giải trình

/...
\...@/

Đây là khung thông thường cho các chương trình tuyến tính trong chế độ Ordinal. Cái bắt duy nhất trong trường hợp này là bit này:

.../...
...&...

Điều này khiến IP vào chế độ Cardinal theo chiều dọc và chỉ thực hiện &ở chế độ Cardinal trước khi tiếp tục ở chế độ Ordinal.

Mở ra luồng điều khiển ngoằn ngoèo sau đó đưa ra:

IRt.&'-A$o*eI/&/0+Ro@

I    Read the first line of input (the value) as a string.
R    Reverse the string.
t.   Split off the last character and duplicate it.
&    Fold the next command over this string. This doesn't really do anything,
     because the string contains only one character (so folding the next
     command is identical to executing it normally).
'-   Push "-".
A    Set intersection. Gives "-" for negative inputs and "" otherwise.
$o   If it's "-", print it, otherwise it must have been a digit which we
     leave on the stack.
*    Join the digit back onto the number. If the number was negative, this
     joins the (absolute value of the) number to an implicit empty string,
     doing nothing.
e    Push an empty string.
I    Read the width W.
/&/  Iterate the next command W times.
0    Append a zero. So we get a string of W zeros on top of the absolute
     value of the input number.
+    Superimpose. This takes the character-wise maximum of both strings
     and appends extraneous characters from the longer string. Since the
     string of zeros can never be larger than the digits in the input,
     the input itself will be uneffected, but extraneous zeros are appended,
     padding the string to the required length.
R    Reverse the result.
o    Print it.
@    Terminate the program.

Đây là hai lựa chọn thay thế, cũng ở mức 23 byte, sử dụng Cardinal H( abs ) để loại bỏ -:

/R.I&0-RoH
\Ie#\'+Ao\@/

/R.H#/.+Xo
\Ie\I&0QRo@/

Về nguyên tắc, đây là một lệnh ngắn hơn, nhưng &không phù hợp với vị trí có chuỗi 1 ký tự trên ngăn xếp, vì vậy chúng ta cần bỏ qua nó với a #.

C, 33 byte

f(x,y){printf("%0*d",y+(x<0),x);}

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

Than , 16 13 byte

‹Ｎ⁰﹪⁺⁺%0ηd↔Ｉθ

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

Đây là lần ngắn nhất tôi có thể sử dụng Than mà không cần in các khoảng trắng hàng đầu hoặc dấu. Ít nhất bây giờ tôi bắt đầu hiểu cách sử dụng Modulohàm để định dạng chuỗi.

Mã deverboses như sau:

Print(Less(InputNumber(),0));    # Prints a - if the first input is less than 0
Print(Modulo(Add(Add("%0",h),"d"),Abs(Cast(q))));   # q: first input;  h: second input

• 3 byte được lưu nhờ Neil!

Võng mạc , 39 byte

\d+$
$*0
((\d)*),(?<-2>-0+|0)*(0*)
$3$1

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

Đầu vào phải được phân tách bằng dấu phẩy với số thứ nhất và chiều rộng thứ hai.

PHP, 45 byte

printf("%0".($argv[2]+(0>$n=$argv[1])).d,$n);

hoặc là

[,$n,$e]=$argv;printf("%0".($e+(0>$n)).d,$n);       # requires PHP 7.1 or later

Chạy với -nrhoặc thử chúng trực tuyến .

Toán học, 118 byte

(j=ToString;If[#2<=0,j@#,If[(z=IntegerLength@#)>=#2,t=z,t=#2];s=j/@PadLeft[IntegerDigits@#,t];If[#>=0,""<>s,"-"<>s]])&

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

Toán học, 63 62 byte

If[#<0,"-",""]<>IntegerString[#,10,Max[#2,IntegerLength@#,1]]&

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

Excel, 29 byte

Sử dụng TEXTchức năng của Excel ("Chuyển đổi giá trị thành văn bản theo định dạng số cụ thể").

xtrong A1, ytrong B1

=TEXT(A1,REPT("0",MAX(1,B1)))

Octave , 44 byte

@(x,y)fprintf(['%0',num2str(y+(x<0)),'d'],x)

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

Haskell , 54 byte

x#y|s<-show$abs$x=['-'|x<0]++('0'<$[length s+1..y])++s

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

Ruby , 31 28 byte

Cảm ơn Carl đã lưu 3 byte bằng cách sử dụng phép nội suy.

->x,y{"%0#{y+(x<0?1:0)}d"%x}

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

Japt , 14 12 byte

Đã lưu 2 byte nhờ @ETHproductions

s r"%d+"_ù0V

Dùng thử trực tuyến

PowerShell , 25 40 byte

param($a,$b)$a|% *g $("D$b"*($b|% *o 0))

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

Giải trình

Điều này gọi .ToString()vào số có chuỗi định dạng được tạo, nhưng nhân nó với -1, 0 hoặc 1 dựa trên việc $b( y) tương ứng là âm, 0 hoặc dương; điều này là để xử lý các ygiá trị âm mà các chuỗi định dạng không tự tạo.

Điều này dường như đòi hỏi phải bọc các số âm trong một phần phụ ()để nó hoạt động, đó chỉ là một sự châm biếm của lời mời khi sử dụng chữ; nếu thông qua các biến của số nguyên kiểu, nó sẽ không cần điều đó.

C # 6.0, 35 byte

(x,y)=>(x.ToString($"D{y<0?0:y}"));

Giải pháp thay thế (51 byte)

(x,y)=>(x.ToString(string.Format("D{0}",y<0?0:y)));

Sạch , 90 86 83 byte

import StdEnv
@x y=if(y<0)"-"""+++{if(c>'-')c'0'\\c<-rjustify x[k\\k<-:toString y]}

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

C (gcc) , 45 byte

f(x,y){printf("%s%0*i","-"+(x>=0),y,abs(x));}

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

Giải trình

printf định dạng ba đối số:

%s      ->    "-"+(x>=0)
%0*i    ->    y
        ->    abs(x)

%sđịnh dạng chuỗi "-"+(x>=0). "-"thực sự chỉ là một địa chỉ, một cái gì đó như 41961441. Trong bộ nhớ, cái này trông giống như thế này:

MEMORY ADDRESS | 41961441  41961442 ...
VALUE          | 45 ('-')  0 (0x00) ...

Khi được định dạng thành một chuỗi, C lấy địa chỉ (giả sử là 41961441) và tiếp tục lấy các ký tự cho đến khi đáp ứng một byte null (0x00). Khi x nhỏ hơn 0, giá trị "-"+(x>=0)có địa chỉ gốc (41961441). Mặt khác, x>=0là 1, do đó biểu thức trở thành "-"+1, điểm byte rỗng sau "-", không in gì.

%0*iin một số nguyên được đệm với một số 0s cụ thể. ybiểu thị số này. Chúng tôi pad abs(x)để tránh tiêu cực trong một số đối số.

Perl, 25 + -ncờ = 26 byte

printf"%0*d",<>+($_<0),$_

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

Perl 5, 22 + 1 (- n) = 23 byte

printf"%0*d",<>+/-/,$_

Dùng thử trực tuyến