Meydan okuma

Giriş ( xve y) olarak iki tamsayı verildiğinde , işareti olmayan karakterlerin uzun xolması için gereken çok sayıda sıfır bulunan bir dize olarak verilir y.

kurallar

• Rakamdan xdaha büyükse y, xdeğişiklik yapmadan dizge olarak çıktı alın .

• Önde gelen sıfır olmasa bile tamsayı olarak çıkış kabul edilmez.

• xNegatif olduğunda , olduğu -gibi devam edin ve mutlak değer üzerinde çalışın.

• Negatif y, 0 olarak değerlendirilmelidir, yani çıktı xolarak (ancak dize olarak) çıktı alın

Örnekler:

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"

Bayt cinsinden en kısa kod kazanır, standart boşluklar uygulanır.

Japt , 13 8 bayt

İlk girdiyi ( x) bir dizge olarak alır.

®©ùTV}'-

Dene

ETHproductions sayesinde büyük bir 5 bayt kaydedildi.

açıklama

Dizge U=xve tamsayının örtük girişi V=y.

® }'-Ueksi sembolündeki bir diziye böler , üstünden eşler ve eksi sembollü bir dizgeye yeniden bağlanır.

©mantıksal AND ( &&) olduğundan, eğer geçerli eleman truthy ise (boş olmayan bir dize), sonra ù0 ( T) uzunluğunda sola ( ) bastırın V.

Pyth , 12 bayt

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

Burada dene!

Python 2,29 bayt

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

Çevrimiçi deneyin!

Sadece str.zfillçok yaklaşıyor.

05AB1E , 11 10 bayt

Olarak verilen giriş amount_of_digits, number

ÎIÄg-×ì'-†

Çevrimiçi deneyin!

açıklama

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

Girişi olarak alın f(x,y). Python %operatörünü kullanarak .

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

Çevrimiçi deneyin!

C #, 56 bayt

Çevrimiçi Deneyin!

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

Java (OpenJDK 8) , 47 bayt

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

Çevrimiçi deneyin!

İlk başta, kolay, 30 karakter max (Java'da dizeleri işlerken oldukça kısa) olduğunu düşündüm. Sonra istisnalar oldu.

JavaScript (ES6), 42

Özyinelemeli, parametreler ters sırada, önce y sonra x. Ve Currying

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

Ölçek

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 bayt

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

Çevrimiçi deneyin! (Colera Su'nun cevabından test davası)

Python 3.6'da dizeleri biçimlendirmenin yeni yolundan yararlanın

İşlemek için +9 bayt y<0

bash, 27 , 25 bayt

Bruce Forte sayesinde -2 bayt

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

çevrimiçi dene

Kabuğu , 12 bayt

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

Çevrimiçi deneyin!

açıklama

Ö±Ω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 bayt

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

Çevrimiçi deneyin!

-8 bayt sayesinde Djhurio

açıklama

• sprintf("%0zd",x) döner xuzunluğu sıfır olan yastıklı dize olarakz
• paste0("%0",y+(x<0),"d")dize oluşturur "%0zd", nerede zolduğunuy takdirde, artı 1 xden az sıfırdır
• Basamaktaki zsayı sayısından azsa x, xolduğu gibi bir dize olarak yazdırılır.

Alice , 23 bayt

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

Çevrimiçi deneyin!

Girdi, ilk satırdaki numara ve ikinci genişlik ile satır beslemeli olarak ayrılmalıdır.

açıklama

/...
\...@/

Bu, Sıralı moddaki doğrusal programlar için normal çerçevedir. Bu durumda sadece yakalamak bu bit:

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

Bu, IP’nin Kardinal moda dikey olarak girmesine ve sadece & Ordinal moda devam etmeden önce Kardinal modunda .

Daha sonra zikzak kontrol akışının açılması:

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.

İşte bunlardan kurtulmak için Kardinal H( abs ) kullanan 23 baytta da iki alternatif -:

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

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

Prensip olarak, bunlar daha kısa bir komuttur, ancak &yığında 1 karakterli bir dize bulunan bir konuma sığmaz, bu yüzden a ile atlamamız gerekir #.

C, 33 bayt

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

Çevrimiçi deneyin!

Kömür , 16 13 bayt

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

Çevrimiçi deneyin!

Bu, lider veya izleyen beyaz alanları yazdırmadan Kömürü kullanabildiğim en kısa şey. En azından şimdi Modulodizeleri biçimlendirmek için işlevin nasıl kullanılacağını anlamaya başladım .

Belirlenen kod aşağıdaki gibidir:

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 sayesinde 3 bayt kurtarıldı!

Retina , 39 bayt

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

Çevrimiçi deneyin!

Girdi ilk sayı ve ikinci genişlik ile virgülle ayrılmalıdır.

PHP, 45 bayt

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

veya

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

Çevrimiçi olarak koşun -nrveya deneyin .

Mathematica, 118 bayt

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

Çevrimiçi deneyin!

Mathematica, 63 62 bayt

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

Çevrimiçi deneyin!

Excel, 29 bayt

Excel'in TEXTişlevselliğini kullanma ("Bir değeri belirli bir sayı biçiminde metne dönüştürür").

xA1'de, yB1'de

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

Oktav , 44 bayt

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

Çevrimiçi deneyin!

Haskell , 54 bayt

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

Çevrimiçi deneyin!

Ruby , 31 28 bayt

Enterpolasyon kullanarak 3 bayt tasarruf için teşekkürler Carl .

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

Çevrimiçi deneyin!

Japt , 14 12 bayt

@ETHproductions sayesinde 2 bayt kaydedildi

s r"%d+"_ù0V

Çevrimiçi deneyin

PowerShell , 25 40 bayt

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

Çevrimiçi deneyin!

açıklama

Bu .ToString(), oluşturulan bir format dizgisine sahip numarayı çağırır , ancak $b( y) 'nın sırasıyla negatif, 0 veya pozitif olmasına bağlı olarak -1, 0 veya 1 ile çarpar ; bu olumsuz işlemeky dizgelerin kendi başlarına yapmadığı değerleri almaktır.

Bu (), değişmezleri kullanırken sadece çağrıların bir tuhaflığı olan çalışması için negatif sayıları bir tasfiyeye sarmayı gerektiriyor gibi görünüyor ; integer türündeki değişkenleri geçerse buna gerek kalmaz.

C # 6.0, 35 bayt

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

Alternatif çözüm (51 bayt)

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

Temiz , 90 86 83 bayt

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

Çevrimiçi deneyin!

C (gcc) , 45 bayt

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

Çevrimiçi deneyin!

açıklama

printf üç argümanı formatlar:

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

%sdizeyi biçimlendirir "-"+(x>=0). "-"Gerçekten sadece bir adres, bir şey gibi 41961441. Hafızada, bu gibi bir şey görünüyor:

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

Bir dizeye biçimlendirildiğinde, C adresi alır (örneğin 41961441) ve boş bir bayt (0x00) karşılanıncaya kadar karakterleri almaya devam eder. X sıfırdan küçük olduğunda, değer "-"+(x>=0)orijinal adresin değerine sahiptir (41961441). Aksi takdirde, x>=01 olur "-"+1, bu nedenle ifade , sonra gelen boş baytı işaret eden olur"-" hiçbir şey yazdırmayan olur.

%0*ibelirtilen sayıda 0s ile dolgulu bir tamsayı yazdırır . ybu numarayı gösterir. Biz ped abs(x)bazı argümanlar içinde negatifi önlemek için.

Perl, 25 + -nbayrak = 26 bayt

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

Çevrimiçi deneyin!

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

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

Çevrimiçi deneyin