도전

두 개의 정수가 입력 ( x및 y) 으로 주어지면 부호가없는 문자 x가되기 위해 선행 0이 필요한 문자열로 출력 됩니다 y.

규칙

• 경우 x보다이 y자리, 출력 x수정없이 문자열을.

• 선행 0이 없어도 정수로 출력 할 수 없습니다.

• 경우 x음극이 상기 유지 -대로 절대 값 동작한다.

• 음수 y는 0으로 처리해야합니다 (즉, x문자열로 출력 됨).

예 :

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"

바이트 단위의 최단 코드가 이기고 표준 허점이 적용됩니다.

Japt , 13 8 바이트

첫 번째 입력 ( x)을 문자열로 사용합니다.

®©ùTV}'-

시도 해봐

ETH 프로덕션 덕분에 대량의 5 바이트를 절약했습니다.

설명

문자열의 암시 적 입력 U=x및 정수 V=y.

® }'-U빼기 기호의 배열로 분할 하고 그 위에 매핑 한 다음 빼기 기호가있는 문자열에 다시 결합합니다.

©논리 AND ( &&)이므로 현재 요소가 진실 (빈 문자열이 아닌 경우) 인 경우 왼쪽 ( ù)을 0 ( T)으로 length 로 채 웁니다 V.

Pyth , 12 바이트

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

여기 사용해보십시오!

파이썬 2 , 29 바이트

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

온라인으로 사용해보십시오!

그냥 str.zfill너무 가까이 온다.

05AB1E , 11 10 바이트

로 주어진 입력 amount_of_digits, number

ÎIÄg-×ì'-†

온라인으로 사용해보십시오!

설명

Î            # 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

파이썬, 29 바이트

로 입력하십시오 f(x,y). 파이썬 %연산자를 사용합니다.

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

온라인으로 사용해보십시오!

C #, 56 바이트

온라인으로 사용해보십시오!

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

자바 (OpenJDK 8) , 47 바이트

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

온라인으로 사용해보십시오!

처음에는 최대 30 자라고 생각했습니다 (Java에서 문자열을 조작 할 때 매우 짧습니다). 그런 다음 예외가 발생했습니다.

자바 스크립트 (ES6), 42

재귀 적이며, 매개 변수는 역순으로, 먼저 y 다음에 x입니다. 그리고 카레

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

테스트

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)
})

파이썬 3.6 , 28 37 바이트

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

온라인으로 사용해보십시오! (Colera Su의 답변에서 테스트 사례)

Python 3.6에서 문자열 형식을 지정하는 새로운 방법 활용

+9 바이트 처리 y<0

bash, 27 , 25 바이트

Bruce Forte 덕분에 -2 바이트

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

온라인으로 사용해보십시오

껍질 , 12 바이트

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

온라인으로 사용해보십시오!

설명

Ö±Ω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 바이트

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

온라인으로 사용해보십시오!

djhurio 덕분에 -8 바이트

설명

• sprintf("%0zd",x)x길이가 0으로 채워진 문자열로 반환z
• paste0("%0",y+(x<0),"d")문자열 구축 "%0zd", z이다 y, 플러스 1의 경우를x 0보다 작 으면 더합니다.
• 경우 z에서의 자리수보다 작은 x, x있는 그대로 문자열로 인쇄

Alice , 23 바이트

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

온라인으로 사용해보십시오!

입력은 첫 번째 줄의 숫자와 두 번째 줄의 너비로 줄 바꿈되어 있어야합니다.

설명

/...
\...@/

이것은 서수 모드에서 선형 프로그램에 대한 일반적인 프레임 워크입니다. 이 경우 유일한 발견은 다음과 같습니다.

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

그러면 &서수 모드로 다시 시작하기 전에 IP가 카디널 모드로 수직으로 들어가고 카디널 모드 로만 실행됩니다.

그런 다음 지그재그 제어 흐름을 펼치면 다음이 제공됩니다.

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.

다음은 카디널 H( abs )을 사용 하여 -다음을 제거 하는 23 바이트의 두 가지 대안 입니다 .

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

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

원칙적으로 이것들은 더 짧은 명령이지만 &스택에 1 문자 문자열이있는 위치에는 맞지 않으므로 a로 건너 뛰어야합니다 #.

C, 33 바이트

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

온라인으로 사용해보십시오!

숯 , 16 13 바이트

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

온라인으로 사용해보십시오!

이것은 선행 또는 후행 공백을 인쇄하지 않고 숯을 사용할 수있는 가장 짧은 것입니다. 적어도 지금은 사용법을 이해하기 시작했습니다.Modulo 함수를 문자열을 형식화 .

디버 보스 코드는 다음과 같습니다.

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

• Neil 덕분에 3 바이트가 절약되었습니다!

망막 , 39 바이트

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

온라인으로 사용해보십시오!

입력은 첫 번째 숫자와 두 번째 너비로 쉼표로 구분해야합니다.

PHP, 45 바이트

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

또는

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

온라인으로 실행 -nr하거나 사용해보십시오 .

Mathematica, 118 bytes

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

Try it online!

Mathematica, 63 62 bytes

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

Try it online!

Excel, 29 bytes

Using Excel's TEXT functionality ("Converts a value to text in a specific number format").

x in A1, y in B1

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

Octave, 44 bytes

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

Try it online!

Haskell, 54 bytes

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

Try it online!

Ruby, 31 28 bytes

Thanks Carl for saving 3 bytes using interpolation.

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

Try it online!

Japt, 14 12 bytes

Saved 2 bytes thanks to @ETHproductions

s r"%d+"_ù0V

Try it online

PowerShell, 25 40 bytes

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

Try it online!

Explanation

This calls .ToString() on the number with a generated format string, but multiplies it by -1, 0, or 1 based on whether $b (y) is negative, 0, or positive respectively; this is to handle negative y values which format strings don't by themselves.

This seems to require wrapping negative numbers in a substatement () for it to work which is just a quirk of the invocation when using literals; if passed variables of type integer, it would not need that.

C# 6.0, 35 bytes

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

Alternative solution (51 bytes)

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

Clean, 90 86 83 bytes

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

Try it online!

C (gcc), 45 bytes

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

Try it online!

Explanation

printf formats three arguments:

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

%s formats the string "-"+(x>=0). "-" is really just an address, something like 41961441. In memory, this looks something like this:

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

When formatted into a string, C takes the address (say 41961441) and keeps on acquiring characters until a null byte (0x00) is met. When x is less than zero, the value "-"+(x>=0) has that of the original address (41961441). Otherwise, x>=0 is 1, so the expression becomes "-"+1, which points the null byte after "-", which prints nothing.

%0*i prints an integer padded with a specified number of 0s. y denotes this number. We pad abs(x) to avoid the negative in some arguments.

Perl, 25 + -n flag = 26 bytes

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

Try it online!

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

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

Try it online